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PREFAZIONE 


Il Commodore 128 è uno dei migliori computer attualmente 
sul mercato ed anche uno dei migliori tra quelli realizzati 
dalla stessa Commodore specialmente per l’ottimo rapporto 
tra le prestazioni ed il prezzo. 

Il CI 28 infatti contiene al suo interno tre computer diversi (tra 
cui un C64), ognuno con il suo microprocessore, che condi¬ 
vidono la tastiera, la memoria e le altre funzioni dei computer 
e, nonostante ciò, il C128 ha un prezzo inferiore a quello che 
aveva il C64 quando fu introdotto in Italia. I tre computer 
contenuti nel 128 sono, oltre ad una copia esatta del C64, che 
consente di utilizzare subito le migliaia di programmi già 
esistenti, un modo CP/M ed un modo 128. 

Nel modo CP/M il computer è in grado di utilizzare i nume¬ 
rosi programmi realizzati sotto questo sistema operativo. 
Infine nel modo 128 (che è quello usato per realizzare i 
programmi di questo libro) il computer dispone di tutte le 
caratteristiche grafiche di un C64 con in più un modo ad 80 
colonne, un processore più veloce, 128K di RAM e soprat¬ 
tutto un BASIC molto esteso (versione 7.0) in grado di sfrut¬ 
tare finalmente in maniera semplice le molte possibilità dei 
chip grafici e sonori. 

Nei programmi del libro, che sono di tipo molto vario, ven¬ 
gono usate appunto le molte caratteristiche di questo nuovo 
computer. 
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USO DEI PROGRAMMI 


Tutti i programmi sono registrati sulla cassetta allegata al 
libro con i nomi di CI, C2, ecc. fino al C22. 

I programmi possono essere caricati in memoria tramite 
l’istruzione: 

LOAD “nome programma’’ 

dove ‘nome programma’ è rappresentato appunto da CI, C2, 
ecc. come indicato nella lista dei programmi. 

Se si vuole caricare in memoria il primo programma che si 
incontra sul nastro è possibile usare l’istruzione: 

LOAD ” 

Per far girare il programma basta premere il tasto F6 che 
corrisponde a RÙN. 

Durante il funzionamento, il programma può essere fermato 
momentaneamente tramite il tasto NO SCROLL, e definitiva¬ 
mente premendo il tasto RUN/STOP. 

Se il computer rimane nel modo grafico ad alta risoluzione, 
per ritornare al modo testo basta premere insieme i tasti 
RUN/STOP e RESTORE che fanno tornare il computer alla 
situazione iniziale. 


v 



Programma 


Nome 


ISTOGRAMMI VERTICALI 

CI 

ISTOGRAMMI ORIZZONTALI 

C2 

CILINDRI 3D 

C3 

DISEGNATORE GRAFICO 

C4 

PLOTTER 

C5 

CURVE MATEMATICHE 

C6 

NEW YORK 

C7 

DISEGNI DI LINEE 

C8 

ITALIA 

C9 

NUMERI DIGITALI 

CIO 

LETTURA VELOCE 

C11 

CRONOMETRO 

C12 

SCRITTE PUBBLICITARIE 

C13 

CONTAPEZZI 

C14 

FISICA DEI REATTORI NUCLEARI 

C15 

SINTETIZZATORE DI STRUMENTI 

C16 

PROGRAMMATORE DI SUONI 

CI 7 

SIMMETRICO 

C18 

TIRO ALLA FUNE 

C19 

ROULETTE 

C20 

FLIPPER GIAPPONESE 

C21 

ROMBOSPIRALE 

C22 


vi 


ISTOGRAMMI 

VERTICALI 


Il programma Istogrammi Verticali è il primo di tre programmi 
di ‘Business Grafica’ vale a dire della rappresentazione in 
forma grafica di dati economici, tecnici, scientifici, ecc.. 

Il programma consente di visualizzare, sotto forma di barre 
verticali, fino ad otto valori numerici contemporaneamente. 
Facendo girare il programma, il computer chiede per prima 
cosa di inserire il titolo del grafico, della lunghezza di mas¬ 
simo 80 caratteri. 

Quindi chiede l’inserimento degli otto argomenti relativi ai 
dati e dei corrispondenti dati numerici. 

Se si desidera inserire meno di otto dati, ad esempio si vuole 
un grafico con solo 5 istogrammi, è sufficiente premere 
RETURN durante l’inserimento deil’argomento del 6° isto¬ 
gramma per far passare il programma alla fase di disegno dei 
grafico. 

I valori numerici dei dati inseriti devono essere compresi fra 0 
e 5000, penserà poi il programma ad usare la scala più adatta 
ai valori inseriti; per esempio, se il valore più alto inserito è 
897, il programma disegnerà un grafico con un valore mas¬ 
simo di 1000. 

Se i valori da inserire sono più grandi di 5000, basta indicare 
nel titolo del grafico un fattore di moltiplicazione (ad esempio 
Lire x 1000) ed inserire dei valori numerici divisi per mille. 
Dopo la visualizzazione del grafico, è possibile passare 
alTinserimento dei dati per un nuovo grafico, premendo il 
tasto N. 


i 





1000 REM +m BUSINESS GRAFICA 
1010 REM ISTOGRAMMI VERTICALI 

1030 REM DI GAETANO MARANO 

1040 REM -------- 

1050 REM CO GRUPPO EDITORIALE JACKSON 

1070 GRAPHIC 0,1-COLOR 5,2 

1080 COLOR 1,14=COLOR 8,1=COLOR 4,1 

1090 SOUND 1,0,0=SOUND 2,0,0 

1100 SOUND 3,0,0 = VOL 8 

1110 PRINT CHR$<142> 

1120 POR A==l TO 8 
1130 SPRITE A,0 = NEXT A 

1158 DIM D C8>=DIM DfC8> 

1160 FOR G== 1 TO 8 
1170 D C G > ==0 = D$ < G > ===== " " 

1180 NEXT G 
1190 N==0 = SCNCL-R 
1200 Z$ : == " 

II 

1210 Z*=2*+Z# 

1220 INPUT "INSERIRE TITOLO GRAFICO CMAX 8 
8 CARATTE—RI> E PREMERE RETURN 
" Tf- 

1230 IF LEM C T $■ > >80 THEH T$==LEFT$ < T$, 80 > 
1240 IF LEN CT $■ ><80 TI4EN T$ =T$+LEFT$CZ$, 88 
-LENC T $ > 

1250 FOR G== 1 TO 8 
1260 SCNCL.R 

1278 F'R I NT " INSERI RE ARGOMENTO ISTOGRAMMA " 

G 

1280 PRINT" C MAX 8 CARATTERI;' E PREMERE REI 
URN 0" 

1290 PRINT "PREMERE. SOLO RETURN PER MENO DI 
8 DATI" 

13O0 PRINT 
1310 R$==" " 




1320 INPUT R* 

1330 IF r fìSC<R*>»0 THEH 1430 

1340 IF LEM CRsfCOS THEH R$ : = L.EFTT < R ■$ , 8 > 

13 5 0 Ci T U .'• = R $ 

1360 FRINT 

1370 PRINT"INSERIRE VFLORE";G;"C 0_5060> 

PREMERE RETURN 
1380 FRINT 
1390 INPUT V 

1400 IF V<0 OR V>5000 THEN GOTO 1370 
1410 DCG>=V 
1420 NENT G 

1430 GRAFFI IC 1,1: SCNCL.R : R=0 

1440 FOR G=1 TO 8 

1450 IF OCG>>R THEN R=0<G> 

1460 NEHI G 
147 O k E 81 U R! E 18 8 0 
1480 FOR M=1 TO 9 
1490 REFlO m , S$ 

1500 IF VAL. N$>>=R THEN 1520 

1510 NENT M 

1520 N=VRL ‘:;N100 

1530 CI-IRR 1,G,24, " PREMERE N PER UN Fi LI 
0 GRAFICO" 

1540 FOR G=1 TO 8 
1550 C=3+G#3 
15 6 0 A t —C H R' $ G + 6 4.5 
1570 CHAR 1,C,22,A£,1 
1580 HENT G 
1590 CHAR .1,31 • 9, NT 
1600 CHAR 1,31,15,8$ 

1610 CHAR 1,31,21,"U" 

1620 CHAR :i. , 0, O, LEFT* >:! TT, 40 > , 1 
1630 CHAR: 1,0, 1, R ■ I lTT T, 40 > , j. 

1640 FOR G=0 TO 7 

1 65 0 L .1. N I ' . G, 3 + 2 -i- 3 

1660 IF G--0 OR G—3 OR i3 = 6 THEN C=3 

1670 IF G~1 OR G®4 OR G=7 THEN C=15 

1680 IF 6=2 OR! G—5 OR G=8 THEN C=27 








1 

698 

S ;: i4 : =C i- IR 1 < G+65 ;< 



1 

700 

CHFÌF: 1 , C, L, 84, 1 



:L 

7 i 0 

CHfiR 1, C-i-2, L., 04 

3+1 > 


i 

720 

NE NT G 



1 

730 

POR G=75 TO 175 

3 TER 16 


i 

740 

O i : : i ! i • i t, :37, G TO 2 

."10 .. ijì 


1 

7501 

IF G“75 OR G=125 

U R i.j = 1 7 5 

THEN ORFlW 1 



,37,G IO 241,G 



1 

760 

HEXI G 



. 1 . 

770 

DRfiW 1,37,75 TO 

37, 175 


•1 

.1 

7Wtì 

DEH Ri 1, ci32, 75 l' U 

232 - 1.7-5 


1 

?s& 

POR G=1 TO 8 



1 

300 

F=40 i G.1 > *24 



:i. 

3 :!. 0 

V — T |-.f |" , Q Q • )--J + . 5 i 



i 

320 

IF V>0 THEN BOX 

i 

1, K, 1 74, ■: 

:K + 20 ;>, 175.V, 

i 

830 

NE F i" G 



:i 

340 

GET H4 



1 

850 

IF li 4= "H" THE Fi R 

JH 


1 

;;;! 6 0 

G 0 T 0 18 4 0 



i. 

870 

LL 

_i 

LU 



:i. 

880 

DfiTR "10","5","2 

3" , "10" , " 

50", "25"," 10 



0","50","200","1 

00","500" 

■"250","100 



8" 



1 

a 90 

DRT'H " 508 " , " 2000 

! 1 

" . " 1000" , 

"5000","2500 










ISTOGRAMMI 

ORIZZONTALI 


Il funzionamento del programma Istogrammi orizzontali è del 
tutto simile a quello del programma precedente tranne per il 
fatto che i dati vengono visualizzati in maniera diversa 
(appunto orizzontalmente). 

Inoltre i dati inseriti possono essere compresi tra 0 e 6000 
(invece di 5000). 


1000 REM m* BUSINESS GRRFICfi *** 
1010 REM ISTOGRRMMI ORIZZONTALI 

1030 REM DI GAETANO MARANO 

1050 REM CO GRUPPO EDITORIALE JACKSON 

1070 GRAPHIC 0,1=COLOR 5.. 2 
1080 COLOR 1,2=COLOR 0,1=COLOR 4,1 
1OSO SOUND 1,0,0 : SOUND 2,0,0 
1100 SOUND 3,0,0-VOL O 
1110 F'RIHT CHR'T < 142 > 

1120 FOR A=1 TO 8 
1130 SF'RITE A, 0 : NEXT A 

1150 DIM DC8> : DIM DfC8> 

II 60 FuR! G=1 Tei 8 
1170 D C G > =0 : 0$ C G > = "" 

1180 NEXT G 
1190 N=0 : SCNCLR 





1200 Z$=" 

» 

1210 Zf-=Z$+Z# 

1220 INPUT"INSERIRE TITOLO GRAFICO <MAK 80 
CARATTE-RI> E PREMERE RETURN 
" ; Tt 

1230 IF LEN <T*»80 THEN T*=LEFT$<T*, 88 > 
1240 IF LEN <T*><80 THEN T*=T*+LEFT*<Z$, 80 
-LEN<T*)> 

1250 FOR 0=1 TO 8 
1260 SCNCLR 

1270 FRINT"INSERIRE ARGOMENTO ISTOGRAMMA" ;G 
1280 PRINT"CMAX 8 CARATTERI> E PREMERE RET 
URN 0" 

1290 PRINT"PREMERE SOLO RETURN PER MENO DI 
8 DATI" 

1300 PRINT 
1310 R$="" 

1320 INPUT R* 

1330 IF RSC<R$>=0 THEN 1430 

1340 IF LEN <:R*::<>8 THEN R*=LEFT$<R$, 8> 

1350 D*<G>«R* 

1360 PRINT 

1370 PRINT"IUSERIRE VALORE";G;" <0_6000 >E 

PREMERE RETURN" 

1380 PRINT 
1390 INPUT V 

1400 IF Y<0 OR V>6000 THEN 1378 
1418 D < G '< = V 
1420 NEKT G 

1430 GRAPHIC 1,1:SCNCLR=R=0 

1440 FOR G=1 TO 8 

1450 IF D<:G>>R THEN R=D<G> 

1468 NEKT G 
1470 RESTORE 1810 
1480 FOR M=1 TO 9 
1490 READ N*,S*,Q* 

1500 IF VAL<:N$>>=R THEN 1520 
1510 NEKT M 



PREMERE N PER UN"RL 


1520 N=VRL<N$>/225 
1530 CHRR 1,0,24," 

TRO GRRFICO" 

1540 CHRR 1,38 .1NT<LEN<N$ > /2 >,21,NT 

1550 CHRR 1,29-1 NT < LEN< S t- > /2 > ,21, S$ 

1560 CHRR 1, 19-1NT < LEN \ QT- > N2 > ,21, QT 
1570 CHRR 1,9,21,"8" 

1580 CHRR 1,0,0,LEFTT<TT,40 >, 1 
1590 CHRR 1,0, 1, RI GHTT < TT, 40 > , 1 
1600 POR G=1 IO 8 
1610 L=G*2+2 
1620 C ■= 9 - L E N < D T < G } > 

1630 CHRR 1, C, L, Dt- < G > 

1640 HENT G 

1650 POR G=79 TG 304 STEP 15 
1660 ORRW 1,G,24 TO G,159 

1670 IF G=79 OR G=154 OR G=229 OR G=304 IH 
EH ORRW 1,G,28 TO G,165 
1680 NENT G 

1690 ORRW 1,79,24 TO 304,24 
1700 ORRW 1,79,155 TO 304,155 
1710 POR F'=l TO 8 
1720 V=39+ R— 1 >#16 
1730 V= I NT D < P >NN+. 5 > 

1740 IP V>0 THEN BON 1,80, V-12 > , 79+V > , V, 
, 1 

1750 NENT P 
1760 HT="fl" 

1770 GET H* 

1780 IF H$="N" THEN RUN 
1790 GOTO 1770 
1800 RETURN 

1810 DRTfi "15","10","5","30","20","10","60 
" , "40" , "20" , " 150" , " 100" , "50" , "300" , 11 
200" 

1820 DRTR "100","600","480","200","1580"," 
1000","500","3000","2000","1000","60 
00 " 

1830 DRTR "4000","2000" 






























CILINDRI 

TRIDIMENSIONALI 


L’ultimo programma di Business Grafica visualizza un mas¬ 
simo di sei dati sotto forma di cilindri tridimensionali; i dati 
inseriti possono essere compresi tra 0 e 9999. 


1000 REM BUSINESS GRAFIOR *** 

1010 REM CILINDRI TRIDIMENSIONALI 

1030 REM DI GAETANO MARANO 

1050 REM <C> GRUPPO EDITORIALE JACKSON 

1070 GRAPHIC 0,1=COLOR 5,2 
1080 COLOR 1,8=COLOR 0,1=COLOR 4,7 
1090 SOUND 1,0, 0 = SOUND 2,0,0 
1100 SOUND 3,0,0 = VOL 0 
1110 FRI NT CHRf- k 142 > 

1120 POR A=1 TO 8 
1130 SF'RITE A, 0 = NEXT A 

1150 DIM D < 6 > = DIM D $■ < 6 !:■ 

1 lfc.0 EUR G= 1 TU S 
1170 D < G > = 0 = D T < G 
1180 NEXT G 
1130 N=0 = SCNCLR 
1200 Zf-=" 




Il 


1210 2$=Zf+2* 

1220 INPUT "INSERIRE TITOLO GRAFICO CMAK 3 
0 CARATTERI> E. PREMERE RETUR 

N " ; T $ 

1230 IF LEN < T '$■ > >80 THEN TT=LEFTT<Tf-, 80 > 
1240 IF LEN < T t -> <80 THEN Tt~-TT+LEFT $<Zt , 80 
--L.EN < T $■ > > 

1250 FOR G=1 TO 6 
1260 SCNCL.R 

1278 PRINT"IUSERIRE ARGOMENTO CILINDRO";G 
1280 PR I NT " < MA:-: 5 CARATTERI!:' E PREMERE RET 
URH 0" 

1290 FRINT"PREMERE SOLO RETURN PER MENO DI 
6 DATI" 

1300 PEINT 
1310 R*=" " 

1320 INPUT Ri- 

1330 IF ASC<R*>=0 THEN 1430 

1340 IF LEN <RT->>5 THEN R$=LEFT $■ CRf-.• 5 > 

1350 DT<G > =RT 
1360 FRINT 

1370 PRINT"IUSERIRE VALORE";G,"<8_9999 > E 

PREMERE RETURN 
1380 FRINT 
1390 INPUT V 

1408 IF Y<0 OR V>9999 THEN GOTO 1378 
1418 D<G::-=V 
1420 NEKT G 

1438 GRAF'H IC 1,1' SCNCLR ' R=8 

1440 FOR G=1 TO 6 

1450 IF D<G > >R THEN R=D-:;G> 

1460 NEKT G 
1478 N=R/100 

1488 CHAR 1,8,24," PREMERE N PER UN "'AL 

TRO GRAFICO" 

1490 FOR: 0=1 Tu 6 
1580 C~G#6—4 



1518 1F LEN(D$<G))<5 THEN Df O3>=0f CO+LEFT 
fi" " , 5 - L E N <: D$ < G > > > 

1520 CHflR 1, C, 22, Df- ■: G > , 1 
1530 HEXT G 

1540 C H FI R 1,0,0, L E F I $ < T $, 4 0 > , 1 

1550 CHI3R 1,0, 1, RI GHTf < Tf, 40 > , 1 

1560 F'OR G=1 IO 6 

1570 IF D <G > =0 THEN GOTO 1690 

1580 X=G*48-13 

1590 F”D < G >‘H 


1600 

CIRCLE 1,> 

, 155.. 20.. 10.. 98.270 

1 6 1 0 

CIRCI.E 1 , 

,155.F,20,10 

1620 

DRFlH 1, X -2 

0, 155 7 0 X—20, :L55-*F 

:i. 630 

DRflW 1, X+2 

0,155 70 X+20,155-F 

164Ei 

PAINT 1,X, 

164 

1650 

fif=STRf I NT < D C G> > > 

! 660 

C r --G*6-~5 


1670 

L.'~ 19.< 0 >■ G > 

XN+20 > X8 

1680 

CHflR 1,C,L 

, ITT 

1690 

NEXT G 


1 700 

GEI" Hf 


1710 

IF Hf="H" 

THEN RUN 

1720 

GOTO 17013 


1730 

RETURN 































DISEGNATORE 

GRAFICO 


Con i molti caratteri grafici di un CI28 ed il programma 
Disegnatore Grafico si possono realizzare facilmente dei 
disegni a bassa risoluzione. 

Il programma chiede all’inizio di inserire il colore desiderato 
per il bordo, il fondo e i caratteri da disegnare. 

Quindi il disegno può essere realizzato tramite i quattro tasti 
di controllo cursore. 

Il carattere o il simbolo grafico usato in quel momento può 
essere cambiato semplicemente premendo il tasto di un altro 
carattere o simbolo. 

Anche il colore può essere cambiato premendo i tasti da 1 a 8 
insieme a CTRL o insieme al tasto Commodore. 

Per cancellare basta premere lo spazio e muoversi lungo la 
parte da eliminare. 

Il disegnatore usa un’area dello schermo di 36 x 25 caratteri. 


L @00 REM 

m DI 

SEGNATURE GRAFICO ** 

1020 REM 

DI 

GAETANO MARANO 

1040 REM 

: c> GRU 

PRO ED ITURIALE JACKSON 

.1. »:!J .KIT.:.I l 

1060 GRììPH 

i:c 0, ì 


10?gi COL...OR 

52 : CO 

LOR 0,1 : COLOR 4,7 

1080 SOUND 

1 .' 0 .. 0 : 

SOUND 2,0,0 

1090 SOUND 

3 .. 0,0 : 

v'OL 0 


13 










1 

.1. yy 

PR: 1N 1 


HK4 '■ 14 

^2 





1 

1 1 0 

FOR R 

= 1 

TO 8 






1 

120 

SPRIT 

E 

R .■ O : NE 

NT 

Fi 




1 

130 

REM . 

- - 

.-. 

— 

-.. 

... 

---- 

-.. 

1 

140 

INPUT 

II 

INSERÌ 

RE 

COLL 

RE BORDO 

1_1 



E ERE 

ME 

RE RET 

UF 

N " 

E 



1 

150 

PRIMI 








1 

160 

IF 13 > 

Ifc 

OR B< 

1 

TI4EN 


1140 


! 

170 

INPUT 

11 

INSERI 

RE 

COL. 

c 

re: FONDO 

. 1_1 



E ERE 

ME 

RE RET 

UF 

N 

F 



i. 

180 

i ::: ‘R I NT 








L 

13Ù 

IF P 

16 

OR PC 

1 

THEN 


1170 


i 

700 

I NPUT 

ii 

INSERI 

RE 

COL. 

C 

RE CREATIERE < 



16 3 E 


PRE 

ME 

R E R 

li: 

TIJRN " , I 


1. 

210 

PRI NT 








1 . 

22W 

IF 13 

16 

OR 1 < 

1 

THEN 


12 13 LÌ 


i 

230 

IF 1 = 

P 

THEN 1 

14 

0 




!. 

240 

COLOR 

3J 

,I : COL 

OR 

0 , P 


COLOR 4,B 

SCHC 

i. 

250 

L-l : C 

= 1 

; N=215 






i. 

260 

GEI 1 

■s 







1 . 

270 

IF i< 1 

<3 

" " THE 

N 

1 -RE 

C 

k$ > 


i. 

280 

IF KT 

3 1 

45 1 INO 

-& 

017 


AND K-029 

AND 



157 T 

HE 

N K~K 






1 

230 

IF K= 

;"-'Q 

THEN 

GO 

SUB 

1 

330 


i 

300 

IF K~ 

15 

7 THEN 

G 

OSUE 


1370 


1. 

319 

IF K= 

14 

5 THEN 

G 

OSUB 


1430 


1 . 

320 

IF K= 

17 

THEN 

GC 

SUB 

1 

410 


1 . 

330 

CHRP 

.. C 

! il 4. " 






1. 

340 

CHRP 

.. C 

,L,CHR 

■$ < 

j 




!. 

350 

K=X 








i 

360 

GOTO 

12 

60 






1. 

3 70 

IF C- 

1 

THEN R 

ET 

URTI 




1 

380 

C=C-1 

= R 

ETIJRN 







1396 IP" C=38 THEH RETURN 

J. 400 C=C+1 : RETURN 

1410 IF L=24 THEN RETURN 

1420 L=L+1 RETURN 

1430 IF L=0 THEN RETURN 


1 l 1 Hi rt -l : RETIJRN 











PLOTTER 


Plotter è un altro programma per disegnare ma ad alta risolu¬ 
zione (320 x 190 pixel). 

All’inizio il programma chiede di inserire il colore del bordo, 
del fondo e della penna. I tasti per disegnare sono otto (dal 
tasto 3 al tasto 0) come indicato nella tabella in fondo. 

Per modificare il disegno o spostarsi si deve premere il tasto 
2 mentre per ritornare al modo disegno va premuto il tasto 1. 


Tasto 

Funzione 

1 

modo ‘disegno’ 

2 

modo ‘modifiche e spostamenti’ 

3 

in alto a sinistra 

4 

in basso a sinistra 

5 

a sinistra 

6 

in basso 

7 

in alto 

8 

a destra 

9 

in basso a destra 

0 

in alto a destra 











1.060 

GRFlPHIC 0, 1 : COLOR 5,2 



1 070 

COLOR 1,2 : COI OR 0, 1 : COLOR 4,1 



1 . 080 

SO UNO 1,0,0- -3 OUNO 2, 0,0 



ì 090 

SOUND 3,0, 0 : 'v'OL 0 



1 1 00 

FRI NT CHRtC 1429 



1 1 10 

POR Fi : =3 TO 8 



11 20 

SPRITE Fi, 0 : NEXI" fi 



1 :i 30 

REM ..-.-...-.. 



1140 

INPUT "INSERIRE COLORE BORDO f 
E PREMERE RETURN ";B 

1 

.1 6 > 

1150 

IF B> 16 OR EKl TI-IEH 1140 



1160 

INPUT "INSERIRE COLORE FONDO < 
E PREMERE RETURN ",P 

1 

.169 

1170 

IR FC 16 OR PCI THE li 1160 



:i. 1 80 

INPUT "INSERIRE COLORE PENNE! C 
E PREMERE RETURN ",I 

1 

.16 > 

1 :L 90 

IF I=P OR II 16 OR IO THEN 118 

0 


1 200 

K-50 : V--50 '• D= 1 



1210 

COLO E: 1 , I COLOR 0, F' COI... OR 4,13 



1220 

GRRPHIC 1,1 



1230 

GET Kt- 



1240 

IF K$0 " " THEN F=FlSC < KT >.47 



1250 

IF KC1 OR K>10 THEN 1270 



.1260 

OH K GOSUB 1490, 1350, 1368, 1390 

, :l 

3 70, 1 


410,1450,1430,1470,1330 



1270 

DRfìW D, X, V 



1280 

fit= ij x._" +STRT<N> + " 



1290 

ET-- " V_" t STRT < V > i- " 



1300 

C li Fi E: 1,5,24, Flt 



1310 

CFIFlR 1,25, 24, Bt 



1320 

K=0 : GOTO 1230 



1330 

IF N~319 OR V~ 190 THEN RETURN 



1340 

6=2+4 ^ V=V+1 : RETURN 



135© 

DO : RETURN 



1360 

D~0 : RETURN 



1370 

IF N^0 OR V190 THEN RETURN 



1380 

. 1 ^ V - V i 1 ^ RETURN 



3 390 

IF 31-^0 OR V=0 THEN RETURN 











i. 400 


K.1 

: V = ' T 

.1 ^ RETURN 

1 4 J. 0 

IF 

V- 

0 THEN RETURN 

1420 

X n::: 

K .1 

^ RE I 

URTI 

1438 

IF 

V ~ 

0 THEN RETURN 

1440 

V” 

T* 1 

: p; :E T 

URN 

1450 

IF 

1 1_ 

T •— 

1 90 

THEN RETURN 

1460 

V= 

r'+l 

•' RET 

URN 

1470 

IF 

V” 

319 

THEN RETURN 

1480 

x= 

K+l 

^ RET 

URN 

1490 

IF 


319 

OR V :;r -0 THEN RETURN 

1 500 

. : V” 

K'i 1 

: v = ' T 

-1'RETURN 
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CURVE MATEMATICHE 


Questo programma disegna in alta risoluzione le curve di 
alcune funzioni matematiche. 



9 


















NEW YORK 


Il programma New York disegna sullo schermo il panorama 
di una città con due file di grattacieli. 

Ogni volta che sì fa girare, il programma crea un panorama 
diverso e casuale. 


;!. 00y 

REM 

44 

* ME 

,.! VORK *94 

1 020 

r. P l 

REM 


DI OHE 

TONO MfiRfiNO 

1 030 

REM 

-.. 

.-.- 

.- -.-.... 

:i. 040 
1 050 

1 060 

REM 

r;> errivi 

«!’ C j 0 

RUSPO E 

DITORIOLE JfiCKSOM 

GEfi 

PHIC 3, 

1'COLOR 

5,2 : COLOR 3,15 

1078 

COL 

JR 2, S 

COLOR 0 

. 1 : COLOR 4■ 1 

1030 

SOU 

-■IO 1,8, 

0 : SOUND 

2,0,0 

1 030 

SOLI 

"ID 3,0, 

0 '■ VOI. 0 


1 1 00 

PEI 

•iT CHE# 

C 142 > 


:!. :!. 1 0 

POR 

Fi -1 TU 

8 


1 120 

SPR 

ITE Fi, 0 

= HE NT FI 


1 140 

Ktll ! 

POR 

Fi-" 1 T 0 

20 


11 50 

DE Fi 

■J 1 , RMD 

<! 1 > 4 159 

. RHD i. 1 > 480 

1.160 

ne: : 

T fi 



1170 

i<~5 

• N=2 



1180 

DIM 

L. 20 



1 19Q 

01M 

H 20 



1200 

FRI! 

•II' CHE* 

<: 142 > 


1210 

POR 

fi=l TO 

8 


1220 

SPR 

rr 

T 

: NEN I FI 


1230 

POR 

Fi —-1 Tu 

20 




























DISEGNI DI LINEE 


li programma disegna sullo schermo in alta risoluzione cin¬ 
que diverse immagini grafiche una di seguito all’altra. 

In particolare il terzo disegno può anche essere variato cam¬ 
biando il valore della variabile V della linea 1340 con un 
valore diverso, sia maggiore che minore di 12. 


1000 REM m DISEGNI DI LINEE m 

1020 REM DI Gli ET lì NO M lì E fi NO 

1040 REM CO GRUPPO ED I TOP ITILE JfiCKSON 

1060 6Rii Pii IC 1,1= COLOR 5,2 

1070 COLOR Irli COLOR 8,1= COLOR 4,7 

1080 SOUND 1,0,O: SOUND 2, 0,0 

1090 SOUND 3,0,0'VOL. 0 

1100 PRIMI CHRf-C 142.:- 

1110 POR Fi"“ 1 TO 8 

1120 SPRITE fi , 0 TIENI fi 

1140 POR IÌ--0 IO 360 STEP 2 
1150 K=5+15*RNDC1> 

1160 RIO 180*lì 

1170 H=4 8 i•• 50* RMD C 1 > 

1180 DRfil'l 1, 160+K*COSCRD> , 99+K*SIHCED> TO 
160+li*COS C RD > , 99-Hi*81N < RD > 

1190 HENT fi 

1200 SL.EEP 6 

1210 COLOR 1,8 : SCNCL.R 

1220 FOR 8=7 TO 95 STEP 8 

1230 DRfiW 1,159,0+100 TO 57+fi,10O 















1240 

sr 

H 

Li 

—r 
JL. 


1250 

F UR fi—7 1U 

95 STEP 8 

1260 

DRfiW 1,160, 

fi+100 TO 262.fi,100 

1270 

NEXT fi 


1280 

POR fì=0 TO 

95 STEP 8 

1290 

DRfiW 1,159, 

fi+4 TO 152-fi,99 

1300 

NEXT fl 


1310 

POR lì=0 TO 

95 STEP 8 

1320 

DRfiW 1,160, 

fi+4 TO 167+fi,99 

1330 

NEXT fi 


1340 

SLEEP 6 


1350 

COLOR 1,15= 

SCNCLR 

1360 

V= 12 


1370 

DIM X<V> 


1380 

DIM v<:v> 


1390 

POR H=1 TO 


1460 

fi=<:=*2>/V*N 

1410 

X N >=COS < fi > 

*110+160 

1420 

V<N>=SIN<n> 

*99+99 

1430 

NEXT N 


1440 

FOR fi-1 TO 

l tl l 

1450 

POR B==l TO 

l |( l 

1460 

DRfiW 1,X < fi > 

, V v fi > TO X ( B '> , V B > 

1470 

NEXT E: 


1480 

NEXT fi 


1490 

SLEEP 6 


1 500 

COLOR 1,2=E 

CNCLR 

1510 

1=100=fi=0 : E 

=fi+I = N== 1 

1520 

R=fi**X180 


1530 

Xfi=110*003< 

R > +160 

1540 

Vfi=99*SIN<F 

.i 4 4 

1550 

R=B**/180 


1560 

XB=110*COS< 

F< ) +• 160 

1570 

VB=99*SIN<F 

.|..qq 

1580 

DRfiW 1,Xfì,V 

fi TO XB,VB 

1599 

fi=fi+1 • B==fi+1 

t4—N + 1 

1 600 

IP H== 19 THE 

N 1620 

1610 

GOTO 1520 


1620 

SLEEP 6 



2 . 






16 

30 

COLOR 1. 

. 8 = SCHCLR 


16 

40 

POR N=1 

IO 8 


16 

50 

CIRCL.E : 

L.. 160.. 100,99, 30, , 

, 180/8*H 

16 

60 

NEXT H 



16 

70 

SLEEP 8 



16 

80 

GRAPPIC 

0, 1 































ITALIA 


La serie di codici numerici inseriti nelle istruzioni DATA di 
questo programma, contengono le coordinate per disegnare 
i contorni dell’Italia. 

Così com’è il programma è più che altro dimostrativo, tuttavia 
la parte principale che disegna l’Italia può essere inserita in 
altri programmi di tipo didattico, di quiz, ecc.. 

Il punto di inizio del disegno dipende dai valori assegnati alle 
variabili X e Y (linee 1140 e 1150). 


1000 REM +■*■+■ ITALI fi *** 

1020 REM DI GfiETfiNQ MARANO 

1030 REM - 

1040 REM <C> GRUPPO EDITORIRLE JACKSON 

1060 GRfìPHIC 0, 1 

1070 COLOR 5.. 2 : COLOR 0,1 = COLOR 4,1 
1 OSO SOUND 1 .■ 0, 0 : SOUND 2 .■ 0, O 
1090 SOUND 3,8,0•VOL 0 
1100 PEINT CHR$<142> 

1110 FOR fi=l TO 8 
1120 SPRITE fi,0•NENT fi 

1140 N=112 = REM 8—224 
1150 V-34 ^ REM 0—84 

1160 RESTORE 1260 
1170 GRfiPHIC 1,1=K=0=C=0 
1180 COLOR 1,2 
1190 READ D = K=K+1 
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1 wOO II- U--iJ.il 1 HLil lLjil 

121.0 IF D=0 THEN V=V+l=GOTO 1246 

1220 D=D-52 

1230 DRfìl'l 1, <X+D> , V 

1240 GOTO 1190 

1250 GOTO 1250 

1260 DfìTfì 94, 0.. 88.. 89.. 91,9293086.. 87.. 889 
0 .■ 930,82 .• 82:, 85.. 94,8.. 8182:, 84.. 95 .■ 0 
1270 DfìTfì 79,82,96,97,98,99.. 0.. 78 .• 80, 81, 108 
.. 181, 102,102:.. 0,64.. 65.. 72,78104, 105 .■ O 
1280 DfìTfì 64,65.71,73,74, 75, 76, 77, 78, 103, 8 
,64,66,71,103, 104,0 

1290 DfìTfì 63,67,68,70,105,0,59,61,62,68,78 
104, 0,54,55,56,57,58,60,69, 104,0 
1300 DfìTfì 53,101,104,0,54,100,101,102,103, 
104, 105,8, 55, 108, 101, 106, 107,0 
1310 DfìTfì 55,99,187,0,56,95,96,97,98,0,55, 
94,0,54,94,0 

1320 DfìTfì 52, 53,94,0,52,95,0,53,95,0,53,96 
,0,54,94,95,96,0,53,94,0 
1330 DfìTfì 53,94,0,53,94,8,52:, 67,68,69,94,0 
,53,65,66,70,71,94,0 

1340 D fì T FI 54,55,64, 72, 73,95,0,56,57, 58,59, 
62:, 72:, 74,95,0,59,62,75,76,96,0 
1358 DfìTfì 59,62, 77 ,97,0,58,59,60,61,78,98, 
0,78,99,100,C,79,101,0,79,102,0 
1360 DfìTfì 79, 103, . 79, 104, 105, 8,88, 105,0,8 
0, 185,0,81 , 106,0,81,186,0,75,81,107, 

0 

1378 DfìTfì 81,82, 107,8, 83, 107,0,77,78, 79, 83 
,107,0,79,84,108,0,76,85,188,8 
1380 DfìTfì 86,109,8,86,87,88,110,0,83,85,89 
, 111,0,90,1 1 2,0,90,11 3 , 1 14,0 
1390 DfìTfì 91,92, 115,@,93• 116,117,0,94, 113, 
119, 122, 123, 124, 125,0,94 , 1.20, 121 , 126 
, 0 

1400 DfìTfì 95,125,0,96,124,0,97,124,0,98,99 
,125,126,0,69,100,102,183,127,123,12 
3 
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41 @ 

DRTR 
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62. 6 
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1 

04 

.. 

i 

|7 

5 , j 

\y 

6 

, i 

2 

r 

, 13 
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67 

.. 68 ■ 

70, 

7 

l 

.. 

1 
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.. 

i 

I« 
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■il 

2 

, i 


•7» 

.. 0 



:i. 

4 

20 

DRTR 

66 
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I 

j. 

•7 

4 
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3 

cr 

.. 

06 
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65 
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l, 1 
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, 136, 
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4 

30 

DRTR 

60 

, 61 , 

62 .• 



.. 

6 

4, 

i‘ 


.. 

10S 

.. 

i 

HE 


111, 

1 

;? 




7 , 138 

• 0 

■ 60 • 

i .< 

1 

0 
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1 1 

2. 


i. 

39 , 
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4 

0 
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40 

DRTR 
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50 
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.. 
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1 
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i 
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.. 

1 

30 
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t 
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i 

2 
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3 
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r* 
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1 
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DRTR 

62 

.■ 66 .« 
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r* 
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13 
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.. 

0 
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6 
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6 

6 
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.. 

1 

:i. 

o 
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3 

ii 

.. 
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i 

35 

.. 
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er 
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:i 

y 
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i 
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2 

cr 
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2 

6 
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i 
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1 

.. 

0 .< 

1 

i 

6 
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6 

.. 

13 

1 
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1 

5 

30 

DRTR 

i .2 
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1 
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.. 
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NUMERI DIGITALI 


Se si vogliono inserire dei numeri di varie dimensioni nel 
modo grafico ad alta risoluzione, si può usare la routine 
Numeri Digitali che consente appunto di scrivere delle cifre 
digitali a sette segmenti. 

Per scrivere un numero bisogna inserire il numero stesso (tra 
0 e 9) nella variabile N, la larghezza dei segmenti orizzontali 
(in pixel) nella variabile L, l’altezza dei segmenti verticali nella 
variabile H e le coordinate alle quali va scritto il numero nelle 
variabili X e Y. 

Se le cifre devono essere tutte della stessa dimensione, i 
valori L e H possono essere stabiliti una sola volta all’inizio, 
inoltre se si devono scrivere più numeri di seguito, occorre 
ad ogni numero incrementare il valore di X per non sovrap¬ 
porre le cifre. 







126 Ì-4R1CK 1 >*10 
128 60SIJB 7000 
130 HE!XI fi 

132 sleep ^graphic 0 , 1 end 

7000 1 S-iE.M X* NUMERI Di Gl TULI +* 

70 : 0 REM ....-.-.-... 

7020 i [ ri : ■ i. ghethnu iihrhho 

7040 RETI ' ! GRUPPO EDI TORI RLE JflCI SOM 

7050 REM ■".—...-. . .-.-. 

70ÉU r ! ■ 1.r ! "! \N • EF' 1403 OR N>9 THEM RETURN 
7070 IF' H “ 00 R1-N 2 0 F: II 3 0 R H 5 0 R M=6 Q R H=?’ 0 R 14=8 O R 
IH EH DRAM 1,7 + 32, V+4 IO 4+32+L, V+ 


7080 IFH”20RN-30RN=40RH=50RN=60RH=8 0RM=9 
THEHDRRW 1 . Oli 32 , V + 4 +H TO 4+32+L, V+4+ 
i4 

7 O 9 0 IFN -- 0 O R ! -I-• 2 0 R N = 3 0 R N -- 5 O R il ----- & 0 R H = 8 0 R N = 9 TF 
EHDRRW1 , 4<- 32, V+4+H+HT0 4+32+L, V+4+H+ 

H 

7 100 I Fi -l~0ORN-10 R H=2 O R H ~ 3 0 R H=4 0 R H = 7 0 R H=8 0 F 
H~ 3THEHDRFU-.11 , 4+32+L, V+4T04+ 32+L, V+4+ 

H 

7 110 IFN---0ORN— 10RN=30RN=40RH=50RH=€.0RN=»70F 
H = 30RH = 9 T H E. HORFI Fi 1 , 4+32+L , V+4+HT04+32 
+L, V+4+H+H 

7120 IF N=0 OR 14=2 OR 14=6 OR 14=8 TRE il DRFH-,- 
1. ■ > +■ ; .1 V + 4 + H 1 U H + 3 2 -■ V +■ 4 + H +' H 

7130 IF 14=0 OR 1-1=4 OR 11=3 OR 14=6 OR 14=3 OF 
14=9 THE!-l DRI-IW 1,4+32, V+4 TO 4+32 , V+ 
4+H 

71 40 F'ETURH 
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LETTURA VELOCE 


Questo programma può essere usato per incrementare la 
propria velocità di lettura. In una serie di istruzioni DATA 
sono contenute 200 parole che vengono visualizzate in 
maniera casuale e per breve tempo in un riquadro sullo 
schermo. 

La prima frase viene sempre visualizzata per un tempo di 0.1 
secondi che viene indicato in anticipo. 

Sparita la frase il computer chiede di scriverla, quindi con¬ 
fronta la frase scritta con quella appena visualizzata. 

Se la frase inserita è uguale a quella scelta dal computer 
esce la scritta ‘Frase: ESATTA’, se invece la frase inserita è 
diversa da quella visualizzata esce la scritta ‘Frase: SBA¬ 
GLIATA!!’. 

Inoltre, ogni volta che si riconosce esattamente una frase, il 
tempo di visualizzazione della successiva viene dimezzato 
(fino ad un minimo di 0.02 secondi), mentre ogni volta che si 
sbaglia viene raddoppiato (fino ad un massimo di 1 secondo). 
Alle 200 parole già incluse nel programma se ne possono 
aggiungere molte altre, inserendo le nuove parole o frasi (di 
massimo 20 caratteri) in una serie di istruzioni DATA; l’ultima 
linea deve essere sempre uguale alla linea 9999 (vedere 
listato) che contiene un carattere usato dal programma per 
riconoscere la fine della lista durante il conteggio delle frasi. 
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*:+:+ LETTURA VELOCE *** 


1000 REM 

1026 REM DI GAETANO MARANO 

1040 REM CO GRUPPO EDITORIALE JAC 
1060 GRRPHIC 0.. 1 

1070 COLOR 3,2 ■■ COLOR 0.-1 COLOR 4.. 7 
1080 SOUND 1,0.. 0 = SOUND 2,0,0 
1090 SOUND 3,0,0 : VOL 0 
1100 PEI NT CHE* C142 > 

1110 FOR H“1 TO 8 
1120 SPRITE R, Li ' NE NT A 

1140 B$=" 


1150 B * ~ B* ■+■ E * +■ B *+B * 
1160 COLOR 5,8 


.1.170 

CHRP ,9,5, 

r 

1180 

CHRP , Sì, 6, 

" 1 

1190 

CHRP: ,9,7, 

" L- 

1 200 

COL...OR 5,2 


1210 

RESTORE 2001 

1228 

FOR A=1 TO 

1 0000 

1230 

READ C*•IF 

CT="#" 

1240 

NEI NT fl 


1250 

NF—fl—1 


1 26U 

DIM 11 ■, i-. 


1270 

T$C1>="009 

. 02 SEC 

1280 

T $■ <; 2. > = " 023 

- 05 SEC 

1290 

T $< 3 > = "045 

. 1 SEC. 

1 300 

TTC4>="093 

.2 SEC. 

1310 

TTC5>-"233 

.5 SEC. 

1320 

T*C 6 > = "466 

1 SEC. 

1330 

TX=3 


1340 

SL.EEP 2 


1350 

CHRP ,3,10 

, "13 


INI RIGIITT 

< T* C TX > , 


KSON 


-.J «« 


DURATA FRASE ac* 










1360 SLEEF' 1 

1370 RESTORE 2001 

1380 FOR A=1 T'Q INT NF*RMD < 1 > > 

1390 READ FT•HEXT fi 
1400 p—VAL < LEFTt-< T* < TX >, 3 > > 

1410 REfiD FT : IF LEN'::F:t >>20 THEH F$=*LEFT$<F 
f, 20 > 

1420 CHRP ,10,6,FT 
1430 FOR T=1 TO P= HEXT T 
1440 CHRP ,10,6," 

1450 SLEEP 1 

1460 CHRP , 3, 10, "«SCRIVETE LR FRASE CHE fi'v 
EIE VISTO E PREMETE RETURH 

II 

1470 INPUT NT 

1480 R=0=IF NT=FT THEH R=1 

1490 IF R=1 THEH CHRP , 3, IO, "fi» FRfiS 

E = * ESATTA * " •• CHRP , 3,11, B 

T 

1500 IF P~0 THEH CHRP ,3,18,"® FRRE 

E ; SBAGLIRTR !! " : CHRP ,3,11, 

BT 

1510 IF R=1 RHD TX> 1 THEH TX'-TX 1 

1520 IF R~-0 RHD TX<6 THEH TX=TX+1 
1530 GOTO 1340 

2000 REM - CATALOGO PAROLE E FRASI - 

2001 DATA "E:IANCO" 

2002 DATA "FIOSSO" 

2003 DATA "VERDE" 

2804 DATA "GIALLO" 

2005 DATA "BLU" 

2006 DATA "NERO" 

2007 DATA "ROMA" 

2008 DATA "MILANO" 

2009 DATA "FIRENZE" 

2010 DATA "NAPOLI" 

2011 DATA "PARIGI" 

2012 DATA "BERLINO" 
so ! 8 DATA "I .ONORA" 




2014 

DfiTR "MADRID" 

2015 

DATA "NEW YORK" 

201 6 

DATA "LOS ANGELES" 

2017 

DATA "ATENE" 

20.18 

DATA "TOKYO" 

2013 

DATA "MOSCA" 

2 O20 

DATA "BUENOS AIRES" 

2021 

DATA "GINEVRA" 

2022 

DATA "MICROPROCESSORE“ 

2023 

DATA "KEVBORRO" 

2024 

DATA "MONITOR" 

2025 

DATA "APPLE" 

2026 

DATA "AEREO" 

2027 

DATA "NAVE" 

2028 

DATA "TRENO" 

2023 

DATA "COMPUTER" 

2030 

DATA "FOTOGRAFIA" 

2031 

DATA "ATTRICE" 

2032 

DATA "AUTOMOBILE" 

2033 

DATA "CREDIT CARD" 

2034 

DATA "LINEA" 

2035 

DATA "ARTICOLO" 

2036 

DATA "INDIRIZZO" 

2037 

DATA "MOTORE" 

2038 

DATA "CAPIRE" 

2033 

DATA "VOLARE" 

2040 

DATA "CAMMINARE" 

2041 

DATA "NAPOLEONE" 

2042 

DATA "GARIBALDI" 

2043 

DATA "CESARE" 

2044 

DATA "WASHINGTON" 

2845 

DATA "PRINTER" 

2046 

DATA "UOMO" 

2047 

DATA "DONNA" 

2048 

DATA "CASA" 

2043 

DATA "SCALA" 

2050 

DATA "ASCENSORE" 

2051 

DATA "RUOTA" 


3i 





2052 

DATA 

2653 

DATA 

2054 

DAT A 

2055 

DATA 

2056 

DATA 

2057 

DATA 

2058 

DATA 

205S' 

DATA 

2060 

DAT A 

2061 

DATA 

2062 

DATA 

2063 

DATA 

2064 

DATA 

2065 

DATA 

2066' 

Ci Fi T A 

2067 

DATA 

2:068 

DATA 

2069 

DATA 

2070 

DATA 

2071 

DATA 

2072 

DATA 

2073 

DATA 

2074 

DATA 

24I175 

DATA 


2076 DATA 

2077 DlTTR 


2078 

DATA 

2079 

DATA 

2080 

DATA 

2:081 

DATA 

2082 

DATA 

2083 

DATA 

2084 

DATA 

2035 

DAI A 

2086: 

DATA 

2087 

DATA 

2088 

DATA 

2089 

DATA 


• LIBRO" 

'JACKSON" 
'BYTE" 

'BUONO" 
'CHI!IVO" 
'VELOCE" 
■LENTO" 

1 GRONDE" 

■ F' i gitolo " 

1 LEGGERO" 
•PESANTE" 
■MARIO" 

'LAURA" 

'FRANCO" 

■ANTONIO" 

■MARIA" 

■FRANCESCO" 

■BARBARA" 

■GATTI" 

■ELEFANTE" 

"DELFINO" 

"GIRAFFA" 

"ANTILOPE" 

"LEONE" 

"CONDOR" 
"TIGRE" 

"DOBERMAN" 

" ippopotami: 

" CANE " 

"BASIC" 

"PASCAL" 

"FORTRAN" 

"FORTH" 

"LISP" 

"PROLOG" 

"LOGO" 

" COBOL " 
"API." 




2030 

DATA 

"CALENDARIO" 

2031 

DATA 

"TRANSISTOR" 

20 y2 

DATA 

"STOFFA" 

2033 

DATA 

"TEATRO" 

2034 

DATA 

"RIVISTA" 

2035 

DATA 

"SEMAFORO" 

2036 

DATA 

"VOLERE" 

2037 

DATA 

"CANTARE" 

2@38 

DATA 

".JET" 

2033 

DATA 

"SCRIVERE" 

2 1 00 

DATA 

"LEGGERE" 

2101 

DATA 

"CALIFORNIA" 

2102 

DA 1 A 

"AMICO" 

2103 

DATA 

"SAPORI" 

2104 

DATA 

"PROGRAMMA" 

2105 

DATA 

"DEBUG" 

2106 

DATA 

"DISK" 

2107 

DATA 

"MUSICA" 

2108 

DATA 

"CANTANTE" 

2103 

DATA 

"TELEFONO" 

2110 

DA 1 A 

"TELEGRAFO" 

2111 

Li FI f A 

"TELEX" 

2112 

DATA 

"CASSETTA" 

2113 

Oh t a 

"LOCALI" 

2114 

DATA 

"NETWORK" 

2115 

DATA 

"JAZZ" 

2116 

DATA 

"STATI" 

2117 

DATA 

"FORMULA" 

2118 

DATA 

"BORSA" 

2113 

DATA 

"PARTICELLA" 

2120 

DA T A 

"PROTONE" 

2121 

DAT A 

"QUARK" 

2122 

DATA 

"NEUTRINO" 

,:d 1 cd -I* 

DATA 

"ELETTRONE" 

2124 

DATA 

"ACQUA" 

2125 

DATA 

"ARANCIA" 

2126 

DATA 

"ANANAS" 

2127 

DATA 

"POMODORO" 









2128 

DITI" li 

"KIWI" 

2129 

DAT fi 

"TESTA" 

2130 

Dfil fi 

"BRACCIO" 

2131 

DFlTfì 

"GAMBA" 

2132 

DAT fi 

"OCCHI" 

2133 

DATA 

"NASO" 

2134 

DATA 

"CUORE" 

2135 

DATA 

"UDIRE" 

2 1 3 6 

DPI 1 fi 

"VEDERE" 

2137 

DFlTfì 

"GIACCA" 

2138 

DAT fi 

"CRAVATTA" 

2139 

DATA 

"METRO" 

2140 

DATA 

"INCH" 

2141 

DATA 

"CACCIAVITE" 

2142 

DATA 

"CARBURATORE" 

2143 

DATA 

"STETOSCOPIO" 

2144 

DATA 

"PAROLE" 

2145 

DATA 

"PAGINE" 

2146 

DATA 

"CONTENITORE" 

2147 

DATA 

"DECOLLO" 

2148 

DAT A 

"DESIGN" 

2149 

DATA 

"ARTISTA" 

2150 

DATA 

"RAGIONE" 

2151 

DATA 

"NASTRO" 

2152 

DATA 

"MICROFONO" 

2153 

DATA 

"STRUMENTO" 

2154 

DATA 

"PIANOFORTE" 

2155 

DATA 

"CLARINETTO" 

2156 

DAT A 

" SAN" 

2157 

DATA 

"SVNTMESIZER" 

2158 

DATA 

"ECONOMIA" 

2159 

DATA 

"MONETA" 

2160 

DATA 

"DOLLARO" 

2161 

DATA 

"STERLINA" 

2 1 62 ! 

DATA 

"CAMBIO" 

2163 

DATA 

"SOFFITTA" 

2164 

DATA 

"PANINO" 

LO 

■•jj 

DATA 

"SPAGHETTI" 





2166 

Dlfi Tifi 

"HAMBURGHER" 

2167 

Diti Fi 

''WHISKY" 

2168 

DfiTFl 

" cancellare: " 

2169 

DfiTFl 

"MEMORIA" 

2170 

DfiTFl 

“AUTOBUS" 

2171 

DfiTFl 

"COMBINAZIONE" 

2172 

DfiTFl 

"URAGANO" 

2173 

DfiTFl 

"SPFlCE SHUTTLE" 

2174 

D filli 

"fiS TRONFI UT fi" 

2175 

DfiTFl 

"PI OGGI Fi" 

2176 

DfiTFl 

"ClfiM INETTO" 

2177 

DfiTFl 

"STRADA" 

2178 

DfiTFl 

"PERCORRERE " 

2179 

DAT fi 

"INDUSTRIfi" 

2180 

DfiTFl 

"INGRANAGGIO" 

2181 

DfiTFl 

"RIVISTA" 

2182 

DfiTFl 

"UNIX" 

2183 

DfiTFl 

"BLOCCHETTO" 

2184 

DFi Tifi 

"DINOSAURO" 

2185 

DfiTFl 

"DIZIONARIO" 

2186 

DfiTFl 

"VIDEOGflMES" 

2187 

DfiTFl 

"STAR WfiRS" 

2188 

DfiTFl 

"PRODUZIONE" 

2189 

DfiTFl 

"ALLENAMENTO" 

2190 

DFi Tifi 

"BASKET" 

2191 

DFi Tifi 

"DISPLAY" 

2192 

DfiTFl 

"PIXEL" 

2193 

DfiTFl 

"LOGARITMO" 

2194 

DfiTFl 

"TRIGONOMETRIfi" 

2195 

DfiTFl 

"HOBBY" 

1 yj£» 

DfiTFl 

"TELEFILM" 

2197 

DfiTFl 

"NOTIZIE" 

2198 

DfiTFl 

"SOPRANO" 

2199 

DAT fi 

"PENULTIMA" 

2208 

DfiTFl 

"ULTIMA" 

9 99 9 

DfiTFl 

"#" : REM FINI 


0 


FIHE LISTO 







CRONOMETRO 


Il Cronometro per CI 28 permette di misurare i tempi e di 
visualizzarli in ore, minuti e secondi. 

Il cronometro è controllato dai tasti Z (start), X (lap, tempo 
intermedio) e C (stop). 


j. 000 

REM 


CROI- 

.1 nJ X u 

f' ; . L:.i ■ . 



1 020 

REM 

D 

1 urtb. 1 

X U •::> IJ 

1 ©48 

h. ! 1 ". 

REM \ C: 

> GR 

UREO ex: 

1 A 60 

1070 

1080 

KLI 1 .. 

REM 

F 

UHZIOHE 

REr! 

REM 


START 

1 090 

REM 

perivi 


LfìP 

CTHP 





X .1. kJ 

1120 

Kc.ll - 

iJkflPH 1C 

0, 1 


1130 

COLOR 5 

.> 2! : C 

OLOR 0 , 

1140 

SOUND 1 

, 0 , 0 

^ SOUND 

1150 

SOUND 3 

, 0 , 0 

: ’v'OL O 

1 160 

FRINT C 

HR-T < 

:L42> 

1170 

POR fi==l 

TO 


1180 

SPRITE 

fi, 0 : 

HENT A 




1200 COLOR 5.. 8 
1210 CHPlR , 2 .. 2 .. " li I I I I I 
MIMMI" 

1220 CHRR ,2,3," 
MIMMI" 


TOSTO 


I I I I I I li I 1 























SCRITTE 

PUBBLICITARIE 


Il programma chiede di inserire per prima cosa un testo di 
massimo 160 caratteri che può contenere, ad esempio, un 
messaggio pubblicitario, una serie di prezzi, delle quota¬ 
zioni di borsa, delle offerte speciali, dei comunicati impor¬ 
tanti, ecc.. 

Quindi si deve inserire la velocità di rotazione delle scritte 
con un valore tra 1 (più veloce) e 10 (più lenta). 

Per inserire una frase diversa occorre fermare il programma 
con il tasto RUN/STOP e quindi dare di nuovo RUN. 


j. 000 

reni 

* W. scr 1 tte Pubbl ici t a.r ie $ 

1 0 1 0 

!’"* 0 fll - 

.-...—.-.-.-. 

1020 

r e ni 

rem . 

di 9a.eta.no nia.ra.rio 

1 040 

c> gruppo editoriale .jacKson 

rem 

1 050 

rem . 

.—....-.. 

1 tìfc.0 

SraPhi 

c: 0 .. 1 

1 070 

co 1 or 

5.. 2 ’ co J. or 0 ■ i‘ '■ co 1 or 4 > r' 

1080 

sound 

1,0, 0 i eound 2.. 0,0 

1090 

sound 

3 .. 0 .. 0 o 1 0 

1 1 00 

P r i nt 

cl-n-4 C 1 '4 

1 1 1 0 

i :: or 

1 to 8 

1 1.20 

s!-' r j. te 

.H. .■ M : n 0 1;;. .Hi. 

1130 

r e m -. 

-..-.—.-..-.-.-.-.- 

1 140 

p r i nt 

! f 1 ri s 0 r* i r i~ n :ìh »••:* rri .1 ò y c ••!«. r -.t. t.-1 


er i > e- 

P r e ni e r e F: E T U E H , 11 

1150 

Pr :i. nt 


1 100 

i nP ut 

:T. $ 


43 












1170 

sene1r 



1180 

input. "Ire 

erire veloci 

f a. •' 1.-10.) e P 


r e nì e r e 

RETURN " ; t 


1190 

if t<l or 

t-> 1U fchen 11 

80 

1200 

co 1 or- 5 .■ 8 ■■ 

sene 1 r 


1210 

ehar .. 0,4.. 

II 




" , 1 


1220 

eh.Ei.r 0,5 j 

II 

" , 1 


1230 

ehar ..0,9, 

II 




" , 1 


1240 

ehar ,0,18 

1! 




", 1 


1250 

rjr — 11 

il 



1260 

eoior 5,2 



1270 

if 1 eri1a. 4> 

<40 then h$= 

1 ef 14" t s$, 40.1 eia 


y y 



1280 

if 1 e ri s. -t- à 

>39 then h t-~ 

il il 

1290 

b$=a.$ + h$ 



1 300 

e#, 



1310 

ehar ,0,7, 

lef 39 y 


1320 

c$=r i 3htf 

cT, 1 en e$ y 1 

;» 

1330 

if 1 en c$ 

<40 then c$~ 

r4i-b4 

1340 

far d=l to 

50:next d 


1350 

goto 1318 








CONTAPEZZI 


Un uso insolito del computer può essere quello di Conta- 
pezzi capace di contare da 0 a 99.999.999 pezzi. 

Facendo girare il programma, ogni volta che si preme 
RETURN il numero viene incrementato di uno. Oltre a ciò, si 
può inserire anche un numero qualsiasi da aggiungere (per 
esempio 334.925) che premendo RETURN viene sommato al 
numero presente sullo schermo oppure sottratto, se il nu¬ 
mero inserito è preceduto dal segno —. 

Se si cerca di sommare o di sottrarre un numero che farebbe 
salire oltre il massimo, il programma fa uscire sul video la 
frase. NUMERO ERRATO O ECCESSIVO’. 


1000 REM *+ C0NTRPE2ZI ** 

1010 REM ------ 

1020 REM DI G Fi ET Fi NO MARANO 

1040 REM (C) GRUPPO EDITORIRLE JACKSON 

1050 REM —.....—...-.- 

1060 GRAPPI IC 0, 1 

1070 COLOR 5,. 1= COLOR 0, S : COLOR 4,7 
1080 SOUND 1,0,0 : SOUND 2,0, 0 
1090 SOUND 3,0,0 : VOL 0 
1100 FRI NT CHR-fK 142> 

1110 POR fi=l TO 8 
1120 SPRITE R,0=HEXT R 


45 








PREMERE RETURN PER UN SOLO 


1130 REM -.—.. 

1140 PRIMI " 

PEZZO" 

1150 PRIMI 

1160 PRIMI " 0 INTRODURRE N“ PEZZI IN 

PIU" 0" 

1170 PRIMI 

1180 PRIMI " IN MENO (CON E PREMERE 
RETURN" 

1190 OHRR ,5, 12," n i-i n n-r 
1200 GNOR ,5, 13, " H i- H H ! 

1210 CHRR , 5,14," I L - J LJ L - JJ - 
1220 N=0 
1230 0=0 

1240 CHRR ,0,22,""=INPUT NI 
1250 CHRR ,0,22," 

1260 IF NI= " " THEN NI="1" 

1270 IF RSC<NI>045 THEN F'I~N! : FOR R= 1 TO 
L.EN < NI > 

1280 IF fiSC<NI>=45 THEN PI=RIGHTIO-!I,LENCN 

I >.1 > : FOR fi=2 TO LENO-IIÙ 

1290 IF RSC <■. PI><48 OR fiSCGPIOS? THEN 1460 
1300 PI=R IGHTI <: PI, LEN C PI > - 1 > 

1310 NERI fi 

1320 IF <N +VfiL.<NI> >><: 108000000.1 > OR CN+VR 

L < NI > > 0 T H E N 14 £: 0 
1338 N=N+VfiL < NI> 

1340 HI="1" 

1350 fiI=STRI<:N> 

1360 EiI=R I GHTI < RI, LEM C RI > -1 > 

13/0 IE LE NRii > : '..o IH EH fiI=Hl+LEE 11 11 

",8.LEN< RI>> 

13:30 FOR P=1 TO 8 
1390 0=012+17’ 

1 4 0 0 j=fi s C < fi I >.4 7 

1410 IF J=-15 THEN J=11 

1420 OH J GiOSUB 1500, 1540, 1580, 1620, 1660, 1 
700, 1740, 1780, 1.820, 1860, 1900 









1430 A$=RIGH 

T$ t. fri , LEU < fri >-1 ■ 

1440 NE NT P 


1450 GOTO 12 

30 

1460 CHRP ,5 

,18, "fi NUMERO ERRATO 0 ECCESS 

J. v U 

1470 SLEEP 2 


1480 CHRP .. r f 

i l 

, 18, " 

1450 OD T 0 12 

30 

1500 CHRP .. C 

, 12, " .-i " 

1510 CHRP •C 

, 13, " ! 1 " 

1520 CHRP L 

,14 . 1 " 

1530 RETURN 


1540 CHflR ,C 

,12," V 

1550 CHRR .. C 

,13," 1" 

1 L HfìR .« L 

,14," - J -" 

1570 RETURN 


1580 CHRR ,C 

, 12, " n" 

1550 CHRP j> L 

, 13^"r J " | 

1600 CHRR .. C 

, 14, " l - J " 

1610 RETURN 


1620 CHRR ,C 

,12," n" 

1630 CHRR .■ C 

,13," 4" 

1640 CHRR C 

, 14, " l - J " 

1650 RETURN 


1 fcifo0 CHHK .■ L 

,12,"II" 

1670 CHRR ,C 

, J , »» '« 

1680 CHRR ,C 

,14," 1" 

1690 RETURN 


1700 CHRR ,C 

, 12, " n " 

1710 CHRR ,C 

,13," H " 

1720 CHRR ,C 

, 14, " '- J " 

1730 RETURN 


17401 CHRR L 

,12," m" 

1750 CHRR ,C 

, 13, " H" 

1760 CHRP ,C 

,14,"'“"' 

1770 RETURN 


1780 CHRR ,C 

,12," n" 


•7 













1790 

CHRR ,C 

13, " 

1 " 

1 800 

C H fl R .■ C 

14, " 

1 " 

1810 

RETURN 



1820 

CHRR ,C 

12, " 

i.1 

1830 

CHRR ,C 

13, " 

H " 

1840 

CHRR ,C 

14, 11 

i.! «' 

1850 

RETURN 



1860 

CHRR ,C 

12, " 

n 11 

1870 

CHRR: .• C 

! O M 

4. .• 

H " 

.1880 

CHRR ,C 

14, 11 

1—1 H 

1890 

RETURN 



1900 

CHRR ,C 

12, " 

II 

1910 

CHRR ,C 

13, " 

II 

1920 

CHRR .■ c 

14, " 

II 

1930 

RETURN 













FISICA DEI REATTORI 
NUCLEARI 


Il programma simula il processo di ‘fissione nucleare’ che è 
alla base del funzionamento appunto delle centrali nucleari 
che producono energia. 

La fissione nucleare è una reazione provocata da neutroni 
veloci che colpiscono degli atomi di Uranio 235 i quali si 
spaccano producendo due atomi più piccoli di Bario e 
Krypto ed altri due neutroni che colpendo a loro volta degli 
atomi di Uranio provocano la cosiddetta ‘reazione a catena’. 
La reazione produce anche energia che viene sfruttata per 
produrre calore ed elettricità. 

Il programma produce un’animazione che può essere vista 
in modo lento (premendo il tasto L) o in modo veloce (tasto V), 
il tasto R fa ritornare il programma allo stato iniziale. 


1 000 

REM FISICO 

DEI REATTORI NUCLEARI 

1 0 1 0 

1 020 

Kb.ri .... 

REM 0 

I GAETANO MARANO 

1 040 

Kb.ri “• 

REM <C> GR 

JF'PO EDITORIALE JACKSON 




1060 

Ktl'l ... 

GROPHIC 0.. 1 


1070 

COLOR 5.. 2 : C 

JL.OR 0.. 1 = COLOR 4.. 7 

1080 

SOUND 1.. 0.. 0 

: SOUND 2 .• 0 .• 0 

1090 

SOUND 3,0,0 

; VOL 0 

1 100 

FRINT CHE*< 

142!:' 

1 1 10 

POR R=1 IO 

3 


49 











112S 

SPRITE fi,0 : NEXT fi 


1138 

REM - 

....—....--- 

— 

1.140 

CHfiR 

, o, 0 , " ;am 8; i muLittore d i 

FISSI 


ONE HUCLEfiPE 






J. X •-.! ti» 

L rlnK 

«X» .• i il V -- -- 

II 


1160 

CHfiR 

, 1,2, "Si.-LENTO" 


:l. 170 

CHfiR 

, 1,4, "i5V-VELOCE" 


1180 

CHfiR 

, 1,6, "SR-RIPETI " 


1.1.90 

CHfiR 

, 27,2, " al. BL-NEUTRONE" 


1 200 

CHfiR 

, 27,3, " ilDBUURfiN IO 235 " 


1210 

CHfiR 

, 27,4, "riDiLJBfìR10 139 " 


1220 

CHfiR 

, 27,5, " lamiLKRVPTO 97 " 


1230 

CHfiR 

, 19,2, " =». " 


1240 

COLOR. 

5 .• S 


1250 

CHfiR 

,19,6,"0" 


1260 

CHfiR 

,12,13,"O" 


1270 

CHfiR 

.26,13,"O" 


1280 

CHfiR 

,7,18,"0" 


1290 

CHfiR 

,17,18,"0" 


1 300 

CHfiR 

,21,18,"O" 


1310 

C H HE 

,31,18,"O" 


1320 

GET K 

$ 


1330 

IF K* 

= "L" THEN T=100 ^ K$="" =GOTO 

1368 

1340 

IF i<:$ 

=="V" THEN T=1 : K4?™" " : GOTO 12 

68 

1350 

GOTO 

1320 


1360 

FOR fi 

=3 TO 6 


1370 

gusle 

1770 


1380 

CHfiR 

, 19, fi, " H. " 


1390 

CHFIR 

x-:19, fi—1.« " " 


1 400 

NERI 

fi 


1410 

CHfiR 

, 18, 6, ' 1 !"1 j rato" 


1420 

FUR i l 

—7 Tu 13 


1430 

GOSIJB 

1770 


1440 

CHfiR 

,25-fi, fi, " a. " 


1450 

CHfiR 

, 13+fi, fi, "al. " 


1460 

CHfiR 

,26-fi,fi-1, " " 


1470 

CHfiR 

, 12+fi,fi-l," " 














1480 NEXT Fi 

1490 CHRP ,11,13, "30 Ito" 

1500 CHRP ,25, 13, "!3D rato" 

1510 POR fi—14 TO 18 
1520 GOSUB 1770 
1530 COLOR 5,2 
1540 CH RR , 39—fì, fì, " . " 

1550 CHfìR ,25—R,fi,"." 

1560 CHRR ,13+fi,fi,"." 

15 PU CHRP! , — 1 +fi, fi, " . 11 
1580 CHfìR ,40-fi,fì-1," " 

1590 CHRR ,26-fì,fi-1," " 

1600 CHFlR , 12+fì, fì -1, " " 

1610 CHfìR , —2+fì . fi—1 , " " 

1620 NEXT fi 

1630 CHRR ,6, 18, "nei Ito m fato no Ito 

O • " 

1640 GOSUB 1770 

1650 CHRR ,6, 19, "al. . .... 

Il 

1660 GOSUB 1770 
1670 CHRR ,5,19," 

II 

1680 CHfìR > 5,28, " al. . . . . 

Il 

1690 GUSIJB 1770 
1700 CHRP ,5,20," 

ii 

1710 CHfìR ,4,21,"'*. 

H 

1720 GOSUB 1770 
1730 CHfìR ,4,21," 

ii 

1740 GEI K* 

1750 IF K$="R" THEN K#=""=RUN 
1760 GOTO 1740 
1770 FOR D=1 TO T 
1780 NEXT 0 : RETURN 
































SINTETIZZATORE 
DI STRUMENTI 


Il programma trasforma un computer CI 28 in un Sintetizza¬ 
tore di Strumenti musicali a 6 ottave per un totale di 72 note, 
che possono essere suonate tramite 24 tasti più il tasto di 
SHIFT e il tasto Commodore. 

I tasti che producono le note sono indicati nella tabella in 
basso (il segno + indica il diesis). 

II CI 28 dispone di un generatore di suoni molto sofisticato 
per cui, prima di iniziare a suonare, è possibile scegliere 
anche il tipo di strumento inserendo un numero tra 0 e 9 e 
premendo RETURN. 

Inoltre durante l’uso basta premere il tasto per ritornare 
al menù per scegliere un altro strumento. 


tasto 

nota 

ottava 

tasto 


nota 

ottava 

tasto 


nota 

ottava 

Q 

DO 

1 

SHIFT 

Q 

DO 

3 

C = 

Q 

DO 

5 

2 

DO + 

1 

SHIFT 

2 

DO + 

3 

C = 

2 

DO + 

5 

W 

RE 

1 

SHIFT 

W 

RE 

3 

C = 

W 

RE 

5 

3 

RE + 

1 

SHIFT 

3 

RE + 

3 

C = 

3 

RE + 

5 

E 

MI 

1 

SHIFT 

E 

MI 

3 

C = 

E 

MI 

5 

R 

FA 

1 

SHIFT 

R 

FA 

3 

C = 

R 

FA 

5 

5 

FA + 

1 

SHIFT 

5 

FA + 

3 

C = 

5 

FA + 

5 

T 

SOL + 

1 

SHIFT 

T 

SOL 

3 

C = 

T 

SOL 

5 

6 

SOL + 

1 

SHIFT 

6 

SOL + 3 

C = 

6 

SOL + 

5 

Y 

LA 

1 

SHIFT 

Y 

LA 

3 

C = 

Y 

LA 

5 

7 

LA + 

1 

SHIFT 

7 

LA + 

3 

C = 

7 

LA + 

5 

53 



tasto 

nota 

ottava 

tasto 


nota 

ottava 

tasto 

nota 

ottava 

U 

SI 

1 

SHIFT 

u 

SI 

3 

C= U 

SI 

5 

Z 

DO 

2 

SHIFT 

z 

DO 

4 

C= Z 

DO 

6 

s 

DO + 

2 

SHIFT 

s 

DO + 

4 

C= S 

DO + 

6 

X 

RE 

2 

SHIFT 

X 

RE 

4 

C= X 

RE 

6 

D 

RE + 

2 

SHIFT 

D 

RE + 

4 

C= D 

RE + 

6 

C 

MI 

2 

SHIFT 

C 

MI 

4 

C= C 

MI 

6 

V 

FA 

2 

SHIFT 

V 

FA 

4 

C= V 

FA + 

6 

G 

FA + 

2 

SHIFT 

G 

FA + 

4 

C= G 

FA + 

6 

B 

SOL 

2 

SHIFT 

B 

SOL 

4 

C= B 

SOL 

6 

H 

SOL + 

2 

SHIFT 

H 

SOL+4 

C= H 

SOL + 

6 

N 

LA 

2 

SHIFT 

N 

LA 

4 

C= N 

LA 

6 

J 

LA + 

2 

SHIFT 

J 

LA + 

4 

C= J 

LA fi¬ 

6 

M 

SI 

2 

SHIFT 

M 

SI 

4 

C= M 

si 

6 

j 

000 RE 

IM 

SIN TE 

TI 

ZZOTORE DI STRUMENTI 


l 

1 

010 REM 
020 REM - 


& 

OTTAVE 

’2 NOTE 

*** 



103U REM D 3. UIÌE.TRNU M lì Rii NO 

1050 REM iO GRUPPO EDI TOP.IRLE JRCKSON 

1070 GRRPHIC 0,1=COLOR 4,7 
1086 COLOR 5,2=COLOR 0,7 
1090 SOUND 1,0,0=SOUND 2,0,0 
1100 SOUND 3,0,0 = VQL 8 
1110 PRINT CI4RT<142 > 

1120 POR R=1 IO 8 
1130 SPIRI TE fi, 0 = NERI" fi 

1150 PRINT=PRINT " fiTTENDERE UN y OTTIMO" 
1160 RESTORE 1500 
1170 DIM 0$ C 218 > = DIM NT < 218 > 

1180 FOR fi ==34 TO 218 


54 . 





1190 

READ ai 



1 200 

IF LEN < f 

I >"=.!. THEN 

1220 

1210 

o$H > -Le 

FU •: AI, 2 > 

: NI <. fi =R IGH TI < Hi, 

1220 

MENI fi 



1230 

SCNCLR 



1240 

FRINT = PR 

INI " 

TRISTO INVILUPPO" 

1 ORiTi 

DD T KIT •» 


II 

1260 

FRI HI 



1270 

FRINÌ " 

0 

PIANO" 

1280 

FRINÌ " 

i 

fìCCORDION" 

1290 

FRINÌ " 


CfiLLIOFE" 

1 300 

FRINÌ " 


IfìMBURO" 

1310 

FRINÌ " 

4 

FLfìUTO" 

1320 

FRINÌ " 

CU 

CHITfìRRfì" 

1330 

FRINÌ " 

& 

HfìRPSICHORD" 

1340 

FRINT " 

i 

ORGANO" 

1350 

FRINÌ " 

o 

TROMBA" 

1360 

FRINÌ " 

5» 

XILOFONO" 

1370 

FRINT : FRINÌ 

II 

- - 

1380 

FRINÌ : FRINÌ '■ FRINÌ 

: FRINÌ'PRIMI 

1330 

INPUT I 



1400 

IF T<0 C 

R T>9 IH E r i 1390 

141 © 

T$="T"-i-8 

TRI':; I> 


1420 

SCNCLR ^ F 

RI NT" i 1 

1111 SINTETIZZATORE 


72—NOIE 

» i 1 1 i 1 " 


1430 

CHAR 1,5 

,15,"SCEL 

Tfl STRUMENTO __ IR 


IO *" 



1440 

GEI KI 



1450 

IF KI="* 

" THEN 12 

30 

i;460 

IF KÌO" 

" THEN K— 

ASC KI 

1470 

IF K>32 

THEN FLRV 

"VI "+01 < 1-0 + 11+” IJ15 


0Q " +NI •:! K > 

1480 K=0 
14 3 0 G 0 T 0 14 4 0 
1500 DATA "03#C" 

1510 DATA "03#D".. " " 
1520 DfìTfi ,, 03#F" 








1530 

DAT fi 

"03#G" 


1540 

DfiTfì 

"03#A", 

II 

1550 

DfiTfi 

Il II II II 

II 

1560 

DfiTfì 

"01#C H 


1570 

DfiTfì 

"01#D", 

II 

1580 

DfiTfi 

"01#F" 


i 5.90 

no tv» 

"ni fin" 


;i 680 

DfiTfi 

" 01 # A " • 

" 

1610 

DfiTfi 

il II M il 

II 

16 20 

DfiTfi 

"02 G" 


!. 630 

DfiTfi 

"02 E" 


640 

DfiTfi 

"02#D" 


1650 

DfiTfi 

"01 E", 

II 

.! 660 

DfiTfi 

"02 #F " 


1 6 70 

DfiTfi 

"02 #G", 

" 

1680 

DfiTfi 

”02#A", 

(< 

16:90 

Dfì f H 

"02 B" 


1 700 

DFlT fi 

"02 A".. 

li 

1710 

DfiTfi 

"01 C" 


1720 

OfìT fi 

"01 F" 


1 730 

DfiTfi 

"02#C" 


L 740 

DfiTfi 

"01 0" 


1750 

dh r h 

"Ol B" 


1 '760 

DfiTfi 

"02 F" 


1770 

DfiTfi 

"01 D" 


1730 

DfiTfi 

"02 0" 


1790 

DfiTfi 

"01 fi" 


1800 

DfiTfi 

"02 C" 


18.10 

DfiTfi 

li II II l! 

II 


il II li 

II 


1820 

DAT fi 

Il II II il 

II 


Il li !! 

il 


1830 

DAT A 

Il 1! Il il 

II 


il II li 

II 


1840 

DATA 

il II II II 

t* 


1! Il II 

II 


1850 

DATA 

Il II II II 

II 


il II l< II ! I H i! I» Il 
Il II II II II 


H II II II II II II II II 
il II II I! Il 


il 

Il * I! Il 

I! Il il 


Il II li li II I! Il II II II II 

Il II II II II II II II II ^ Il II 

Il II II il II II II II II II II 

Il II II II II II II II li II II 

Il II II II II II II II II II II 


II 







186 0 

DftTfì 

II II II II 

li 

il 

II 

Il II II II II II il II II 

187Q 

DATA 

"05#C" 





1880 

DATA 

"05#D", 

II 

li 



1890 

DATA 

"Q5#F" 





1 900 

DATA 

"05#G" 





19 :L 0 

DATA 

"05#A", 

II 

1 ! 

II 

Il II II 

1920 

DAT A 

il il II il 

li 

Il 

II 

Il II II 

1930 

DATA 

"05 G", 

il 

II 



1940 

DAT A 

"06#F", 

il 

II 



1950 

DAT A 

"06 B", 

II 

il 

il 

II 

1960 

DATA 

"06 A" 



. 


1970 

DATA 

"05 0" 





1980 

DATA 

"06#D" 





1990 

DATA 

"06 C" 





2000 

DATA 

"06 #0 " , 

II 

II 

li 

II 

20 1 0 

DATA 

"05 E" 





2020 

DA ! H 

"05 F"' 





2030 

DA FA 

"05 D" 





2040 

DATA 

"06#G" 





2050 

DAT A 

"06#A", 

U 

II 



2060 

DATA 

"05 A" 





2070 

DATA 

"05 B", 

II 

II 

li 

Il II II 

2080 

DATA 

"06 E" 





2090 

DATA 

"06 D" 





2100 

DATA 

"06 F" 





2110 

DATA 

"06 G", 

il 

II 

II 

II 

2120 

DATA 

"04 G" 





2130 

DATA 

"04 E" 





2140 

DATA 

"04#D" 





2150 

DAI A 

"03 E", 

II 

II 



2160 

DATA 

"04#F" 





2170 

DATA 

"04#G", 

If 

II 



2180 

DAI l'ì 

"04#A", 

II 

II 

II 

11 

2190 

DATA 

"04 B" 





2:200 

DATA 

"04 A", 

li 

II 

II 

II 

2210 

DATA 

"03 C" 





2220 

DATA 

"03 F" 





2230 

DATA 

"04#C" 
















PROGRAMMATORE 
DI SUONI 


Una caratteristica interessante del CI 28 è certamente il 
generatore di suoni molto sofisticato che dispone di 3 voci 
con la possibilità di definire numerosi parametri come la 
frequenza, la durata, il tipo di forma d’onda, ecc.. 

Con il Programmatore di Suoni è possibile modificare facil¬ 
mente e velocemente i valori che determinano le caratteristi¬ 
che del suono fino ad arrivare al suono desiderato. 

Usando i tasti di cursore a destra e a sinistra è possibile 
selezionare la voce da modificare, mentre tramite i tasti cur¬ 
sore in alto e in basso è possibile scegliere il parametro da 
modificare. 

Poiché i valori massimi da inserire variano da 3 a 65535, è 
possibile scegliere anche il valore dell’incremento o del 
decremento tramite i tasti U (uno), D (dieci), C (cento) e M 
(mille); è importante tenere presente che se si cerca di 
decrementare un registro che si trova a 15 fino al valore di 8 
dopo aver selezionato un decremento, ad esempio di cento, 
il decremento non avviene finché non si preme il tasto U per 
ritornare al decremento di uno. 

Il parametro selezionato può essere incrementato o decre- 
mentato tramite i tasti + e — oltre a questi c’è il tasto V che 
modifica il volume, il tasto A che consente di ascoltare il 
suono creato fino a quel momento e di avere anche le relative 
istruzioni SOUND ed il tasto ESC che azzera tutto e fa ripar¬ 
tire il programma. 

Da notare che all’inizio può sembrare che il programma non 
funzioni, infatti, per sentire ad esempio un suono dalla voce 

_.59 



1, occorre prima alzare il volume del televisore o del monitor, 
quindi stabilire con V un volume sufficiente, inserire una 
frequenza ed una durata per il suono e premere il tasto A. 
Oltre ai parametri da inserire nelle istruzioni SOUND modifi¬ 
cabili con questo programma, il generatore di suoni dispone 
anche delle istruzioni ENVELOPE e FILTER che consentono 
rispettivamente di scegliere l’inviluppo e di filtrare il suono. 
Una descrizione più dettagliata dei funzionamento e dell’uso 
delie istruzioni SOUND, ENVELOPE e FILTER è presente nel 
manuale del computer CI 28. 


1000 REM * PROGRAMMATORE DI SUONI * 

1020 REM DI GAETANO MARANO 

1040 REM CO GRUPPO EDITORIALE JACKSON 

1060 GRAPHIC 0,1=COLOR 4,8 
1070 COLOR 5,2 = COLOR 0,7 
1080 SOUND 1,0,0 = SOUND 2,0,0 
1090 SOUND 3,0,0 = VOI. 5 


1 100 

PEI NT 

CHRT C 

142> 

1110 

FOR A= 

1 TO 

Pj 

1120 

1130 

SPRITE 

A, 0 = 

NEXT A 

Kt:rl .. 

CHAR , 

0 , 1, " 

1 1 1 II 1 PROGRAMMATORE DI 

1 140 


SUONI 

■ |IS 

1 1 " 

1 150 

CHAR , 

1,3, " 

VOCE 1 VOC 


E 2 VOCE 3 

" , 1 

1160 

COLOR 

5, 11 


1170 

CHAR 1 

, 17,0 

,"VOCE 1",1 

1180 

COLOR 

5,2 


1 190 

L-HAR , 

16, 4, 

r~ " ~i— • ..i ~ ~i 

1200 

CHAR , 

1,5, " 

FREQUENZA -1 0 1 8 

il 

.1210 

L-HAR , 

1 fo fo 

" 1-—-4-—-1—-4 " 


6i 










1220 

CHRR 

, 1,7, " 

DURRTR ---1 0 

1 

0 


1 

0 1 

II 



1230 

CHRR 

,16,8, 

" - -4-1—- 

4 " 


1240 

CHFlR 

, 1,9, " 

DIREZIONE -1 INCR. 

1 

IN 


UR. i 

I NCR. 1 

Il 



1250 

CHRR 

, 16, 10 

, " F—•--4---4—-- 

-4 

II 

1260 

CHRR 

, 1, 1 1 , 

" FREQ. SWEEP —1 G 

1 

0 


1 

0 

1 " 



1270 

CHRR 

,16,12 

, " h----4-4 --- 

-4 

ii 

1280 

CHRR 

j 

, 1, 13, 

" STEP -1 0 

1 ** 

1 

0 

1290 

CHRR 

, 16, 14 

, " 1--...F---.4-- 

-4 

II 

1 300 

CHRR 

•. •••• i 

,1,15, 

" FORMA D ' ONDA -- 1 

i “ 

1 


1310 

CHRR 

,16, 16 

1 

-4 

II 

1.320 

CHRR 

, 1,17, 

" IMPULSI --— 1 0 

1 

0 

1 330 

CHRR 

, 16, 13 

1 

, " I----4-...— J -- 

--J 

II 

1340 

CHRR 

, 1 , 19 , 

11 VOLUME --1 5 

1 

II 

1350 

CHRR 

, 16 , 20 

, " 1 -----J " 



1360 

CHRR 

1 , 38 , 5 

! ! Il 



1370 

curi d 

17, 3 > 




1380 

V-“5 : I 

-1 : V=1 

. | - ... j . i ( t i ..... nr 



1390 

GEI K 





1400 

IF K-$ 

IH EH IOASC >■. K:f > 



1410 

IF K= 

27 THEH RUM ' 



1420 

IF K= 

65 THE 

H GOSUB- 2140 



1430 

IF K= 

157 OR 

029 THEH GOSUB 1940 



1440 

IF IO 

145 OR 

K = 17 TFIEN GOSUB 1530 



1450 

IF K= 

85 OR 

104.17 TFIEN GOSUB 1380 



1 '460 

IF K= 

68 OR 

IO 100 THEH GOSUB 1910 



1470 

IF l<= 

67 OR 

099 THEH GOSUB 1920 



1480 

IF IO 

77 OR 

10109 THEH GOSUB 1930 



14 90 

IF K= 

43 OR 

045 TFIEN GOSUB 1610 



1 500 

IF IO 

86 THE 

N GOSUB 2070 



1510 

IO0 : K 

O " " 




1520 

GOTO 

1 390 




15:30 

H=V 



















1546 
:l. 550 
1560 
:l 570 
1580 
:i. 590 

1 600 

1610 

1 F IO 1 7 THEN y—V+2 

IF 10=145 IH EH V=V—2 
T.F V=i9 THEN V==5 

IF V=3 THEN V=Ì7 

CHRP. 1,38,H," » 

CHRP 1,38,V, 

RETURN 

IF V=5 HMD 1045 RND 

□ c: v, v 

>.I>=0 THEN 

1620 

CKV, V>=D0 V, V>~I 

IF V=5 RND 1043 fìHD 

□ '• V , ’v 

>+1065536 TH 

1630 

EH CKV, VOCKV, V) + I 

IF V=7 FlHD 1045 RHD 

3V, V 

>.I>®0 THEN 

j. 640 

D < V, V > =D C V, V > --1 

IF V=7 RND 10=43 RND 

□ <: v, v 

> + 1032768 TI4 

1650 

EH CKV, V> =-D<:V, V> + I 

IF V=9 RND 10=45 RND 

IKV, V 

> --1 :>=0 THEN 

1660 

CKV, VO-CKV, V> — 1 

IF V=9 RND 10=43 RND 

D C V, V 

>+103 THEN D 

1670 

<V, V> +1 

IF V® 11 RND 10=45 RND 

d v, 

V >-1>®0 THEN 

1680 

D < V, V > =D 0 V, V::< - I 

IF V= 11 RND 10=43 RND 

CKV, 

V>+I065536 T 

1690 

NEH D V, V > -D1V, V > +1 
IF V®13 RHD 1045 RND 

D < V, 

V >.I>=0 THEN 

1 700 

D C V, V > ==D V, V > - I 

IF V=13 RND 1043 RND 

CKV, 

V>+I032768 T 

1710 

NEH 0 C V, V =D < V, V > +1 
IF V= 15 RND 1045 RND 

D1V, 

V,..10=0 THEN 

1720 

D V, V -=D C. V, V > — 1 

IF V® 15 RND 10=4:3 RND 

D •: V, 

V>+104 THEN 

1730 

D < V, V > =D <: V, V > +1 

IF V= 17 RND 10=45 RND 

CKV, 

V>.1.00 THEN 

1740 

CKV, VOCKV, V>~-I 

IF V=17 RND 1043 RND 

CKV, 

V>+104096 TH 

J. 750 

EH CKV, VOCKV, V> +1 

IF V=5 OR V=7 OR V=1 

1 OR 

V~= 13 OR V== 17 

1760 

THErl GOSIJB 1860 

IF V=9 OR V=15 THEN 

30 SI... 18 

1780 






7@ 

RETURN 



'80 

IR V=9 RND DOT, V 
IHCR,. " 

>=0 THEN C 

i-lfìR 1, 

'90 

IF V=9 HMD DOT,V 
n eroe» ** 

> ~1 THEN C 

T-IRR 1., 

: 0 0 

U L.. L- K w 

IF V-“9 RND D< V, V 
OSCILL" 

> =2 THEN C 

HRR 1, 

: 10 

IF V= 15 AND DOT, 

V>=0 THEN 

CHRR 1 

:20 

IF V=15 RND DOT, 

Il Il 

V > =1 THEN 

L.HRR 1 

:30 

IF V-15 RND DOT, 
" LLL.1... " 

V > =2 THEN 

CHRR 1 

■40 

IF V~15 RND DOT, 
" NOISE" 

V> =3 THEN 

UHRR I 


1850 

RETURN 



1868 

CHRR 1,C,V," 

il 


1 870 

D$=STR$ •■ D •: V, 

V > 


1880 

CHRR 1,C,V,D 

f 


1890 

RETURN 



1900 

1=1 : RETURN 



1910 

1=10 : RETURN 



1920 

1=190=RETURN 



:!. y 80 

1 = 1000 RETUR 

N 


1940 

IF K=29 THEN 

V=V+ 1 


1950 

IF !<=1'5? THE 

N V=V.1 


1 3&.ì 

IF V=0 THEN 



19 78 

IF V=4 THEN 

1 


1980 

COLOR: 5, 2 



1990 

CHRR ,1,3," 


VOCE 1 


E 2 VOCE 3 

" , 1 


,2U00 

20 1 0 

COLOR 5,11 
C=Vi*7+10 



2020 

IF 'T= 1 THEN 

..HRR 1,C. 

3,"VOCE 1",1 

2030 

IF V=2 THEN 

CHRR 1,C. 

3,"VOCE 2",1 

2040 

IF V=3 THEN 

2HRR 1,C. 

3,"VOCE 3",1 

2050 

COLOR 5,2 



2060 

RETURN 
















2070 

VX-VX+1 




2080 

IF W=16 THEN VX~0 



2090 

V $■ ~ S T R ;t : V 9 

j 



2 1 00 

CHftR 1,17, 

19, " 

il 


2110 

CHFlR 1,17, 

19, Vf- 



2120 

VOL VX 




2130 

RETURN 




2140 

FOR X”1 TC 

•3 



2150 

CHflR 1,0, C 

21+X > , " 

II 


2160 

Hì ; =" SOUND" 

+R .1 Gl- ITT < S 

TRtCO , 1 > 


2170 

FOR L.=5 TC 

17 STEP 

2! 


2180 

..T*=STR* COC 

L., X > > 



2190 

J$=R I Ci HIT C 

,J*, I....EN I l 

>.i > 


2200 

HT=H:f ■+• " , 

J$ 



2210 

HEXT L 




99?0 

CHRP 1,©,< 

21+X > , 1-1$ 



2230 

HEXT X 




2240 

souiiD i,i:k 

5, 1> , D < 7, 

i :>, d < 9, i > 

, D 11, 1 > , 


D 13, 1 > , D <: 

15, 1 > , 0 < 1 

7, 1 > 


2250 

SOUND 2,D < 

5,2>,D<7, 

9 . fi 9.2 ■' 

,D<11,2>, 


D <13,2>,DC 

15,2 >,D < 1 

l " .* ■«. .•* 


2260 

SOUND 3,D k 

5, 3 :< , D < 7, 

3 i , fi (’ 9.3 ‘j 

, D < 11,3 > , 


D <: 13,3 > , D < 

15,3 > , il) C 1 

"7 t ;“*« 


2270 

RETURN 





6. 






SIMMETRICO 


Questo è un programma di animazione che disegna sullo 
schermo delle linee orizzontali e verticali simmetricamente e 
contemporaneamente su quattro aree. 






















TIRO ALLA FUNE 


Il tiro alla fune è un gioco per due persone. 

All’inizio appaiono sullo schermo due omini stilizzati con una 
fune. 

L’omino di sinistra viene comandato dal tasto A mentre 
quello di destra dal tasto L. Ogni volta che appaiono le due 
stelle al centro dello schermo il giocatore che preme per 
primo il proprio tasto ha la possibilità di tirare i due omini 
dalla sua parte, se però uno dei giocatori preme il proprio 
tasto prima che appaiono le stelle, i due omini si sposteranno 
nel senso opposto favorendo l’avversario. 

Il gioco continua finché uno dei due giocatori non riesce a 
trascinare l’avversario completamente nella propria zona. 

Il tempo di apparizione delle due stelle ed il ritardo tra una 
apparizione e l’altra sono casuali e vengono stabiliti rispetti¬ 
vamente dalle linee 1310 e 1250 che possono essere even¬ 
tualmente modificate per rendere il gioco più difficile. 
































1420 

Grifi R 0, 

0 0 , 

f ! 

1 ! 

i 4 30 

CHflR , F 

o » » 

ni i., ri h n 

1440 

CHfìR 0, 

0 , 9 

ii 

;!, 450 

CHflR .. G 

, 9 , " 

»4.-.~..-...... 

:L 4 SS 

CHRP ,F 

. 9 , » 

m >-ai - -.-— .- :v " 

1470 

COLOR 

ci 


148 0 

1F F'= 1 

OR F 

-~21 THEN 1500 

1490 

GOTO 12 

30 


1 500 

CHFlR , 1 

2 ,4, 

M II 

1 51 0 

IF P =>1 

11 

IH Et 

FRINÌ "SWVINCE IL GIALLO"" 

1528 

if p i 

THEN FRI NT M Sii VINCE IL BLU W 

1530 

CHRP ,3 

, 18, 

Il li 

1540 

FRINÌ " 

SBSPF 

EMEREal G 2SPER GIOCARESai" 

1550 

GET RI 



1560 

IF RIO 

"G" 

THEN GOTO 1550 

1570 

RUM 


































ROULETTE 


Il programma realizza una Roulette completa di sonoro. La 
richiesta di un numero avviene premendo il tasto N. 


1 000 

rem m 

oprivi -.. 

. 1 . KJ i hJ 

1020 

rem d 

1 030 

REM --- 

1040 

REM 0::> OR 

1 050 

REM . 

1 060 

GRRPHIC 3.1 

1070 

COi...OR 22 C 

1 080 

SOUND !.. 0.. 0 

1 090 

SOUND 3.. 0.. 0 

1 1 00 

PRINT CHRT- 

1 1 10 

POR R=1 TO 

1120 

3PRITE R .• 0 ; 

1130 

REM -. 

1140 

DIM P<37>■D 

1 ! 50 

C=1 ^ L.“3 ^ H--4 

1160 

POR R--0 TO 

1170 

K==.' 100 *H 

1180 

2-~75*C0S'': IO 

. 1 . 190 

•r r -:90*SIN CK > 

1 200 

RERD P, I , m 

1210 

p' 2 II > --P' : 1 ' C ' 

122 G 

IP P=2 1HEN 

12:30 

XP p*e THEN 

1240 

IP OR P 

1250 

200-1 


* ROULETTE ** 
DI GRETRI-IO MARANO 


COLOR 1,6 ^ COLOR 3,11 
il.OR 0». 1 • COLOR 4,. 7 
SOUND 2» O.. O 


VOI. 10 













i 260 
1270 
1280 

| .'M l"H 


IF 1 = 1 TI-IEN 2=0 

ir i-c then -3 

FNFlSCFLEFTT',I I#., j. |.48 

GOSUB 1780 


13 :L 0 

N-Fi se <: 

RI Gl 4 T 

tifi* . 3. > 

i.,1 O 

1 329 

GOSUB 

1730 




1330 

HE'XT Fi 




1340 

L=3 : H = 

s 




1350 

F?:=50+INTERNO':; 1 

> 7FI 

’j 

1860 

GET i r 





1370 

IF KT-- 

"FI" THEF 

GOS 

UB 1 

1330 

GOTO 1 

350 




1390 

FOR K- 

V- C HZ 

2 > 

TO S- 

+IT+2 

1400 

DRFlW Z 

, < y,+3 

,“•* — 

<: i.--'2 

.• K + 


L ,32 > , K 

14 




1410 

rlENT K 





1420 

RETURN 





1430 

V=0 





1440 

FOR F= 

0 TO 

R+9 

„ 7 23 

STE 

1450 

V=V+1 

IF 

38 

THEN 

V= 1 

.1. 460 

DRFlW 0 

, Fi+32 

, ES + 

4 


1470 

DE Fi FI 0 

.. Fi+33 

, B + 

4 


1480 

DRFlW O 

.. Fi+32 

.< B+ 

5 


l '4:30 

d fi Fin 0 

.. fì+33 

, 8+ 

5 


L 50fci 

K18 

0*F 




[ 510 

14“ 65* C 

US C K 

+47 



1520 

B=78*S 

IH 3 > 

+94 



! 530 

ORFlN 2 

, 14 + 32 

, E:+ 

4 


L 540 

URFlW 2 

, Fi+3:3 

, B + 

4 


L 550 

DRFlW 2 

, 0+32 

, B+ 

e:- 

„.i 


!. 560 

DRFlW 2 

, fì+33 

, B+ 

cr 


1.570 

SOUHD 

2.. 5©.. 

1 0 



L 580 

HEZT F 





ì. 590i 

H=40- V 

=86 : I 

“ I -:| 

v' > P 

=P < V 

1600 

IF r F'-“2 

THE FI 

*7*’ — 



!. 610 

IF P=1 

THEN 

z= 

3 


1.620 

IF P=6 

THEN 

•-. 

1 












1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1738 
1740 


1750 


1760 


nt^numt cv> 

G08UB 1398 

IF 1=1 THEN Z=0 

IF I ”3 Tri Eli Z = 3 

H-H8U <. LE.!" 1 T t. NT .■ 1 -48 

GOSUB 1730 

K=7+7 

N=fìSC<RIGHTT C NT, 1 >-48 

GU8UE> 1 r U 

RETURN 

IF N—- 16 THEN RETURN 

IF N—0 O R. N=2 0 R N=3 0 R M=5 0 R N - 6 CRN - 7 0 Rii - 8 0 R 
H=9 THENDRfìW Z, X+32*V+4 Tu X+32+L.■ V+ 

4 

IFM=20RN—30RN=40RN—50RN=6QRN-8 0RN=9 
1 HENDRhW Z, X + 32, V+4+H TU X+32+L, V+4+ 

H 

IF N—0 0 R N - 2 0 R N=3 0 R N=5 0 R N =€ 0 R N=8 0 R N — 9 T H 
ENDRfiNZ, lK+32, V+4+H+HT0 X+32+L, V+4+H+ 


T770 IFN-00RN-10RN=£0RN- r -30RN-4ORN-70RN—8OR 
H=9THEHDRRW2.. N+32+ L .■ V+4T0K+32+!.■ V+4+ 

H 

1780 IF H—0 0 R N = ; 10 R N=3 0 R H=4 0 R N-- 5 O R il—6 0 R M=7 0 R 
N=80RH=9THENDRfìH2,X+32+L,Y+4+HTQK+32 
■+L. .• V+4+H+H 

1790 IF H==0 OR i•1-2 OR N=6 OR N=8 THEN DRFiN 
Z, 7+32, V+4+H TU lv-i-32, V+4+H+H 
1800 IF N—0 OR N—4 OR N=5 OR N=6 OR N=8 OR 
N=9 THEN DRFiN Z, X+32, V+4 Tu K+32, Y+ 
4+H 

1810 RETURN 

1820 DfìTfì 1,3,"5 ",2,1,"24",1,3,"16",2,1," 

33",1,3,"1 " 

1830 DfìTF-i 2,1, " 20 " , 1,3, " 14" , 2, 1, " 31 " , 1,3, " 

9 " , 2 . j 11 32 " 

1840 DfiTfì 1,3,"18",2,1,"29",1,3," 7",2, 1, " 
28",1,3,"12" 






1850 

DflT'Fi 2, 

1,"35" 

1 


n -™, ii 

1. 

"26",6,1," 


0 ", 1,2 

11 o •;“« « « 






18S0 

0 FU 1-1 2, 

•| , H j CSJII 

■i 

J. . 

-~y 

"13",2 

1. 

" 4",1,3," 


21",2,1 

i ! •~;i « i 






1870 

DH'T'R 1, 

11 ••••» Cr 11 
.* •. J 

cl. . 

1 

x . 

"17",1. 

3. 

"34", 2 ,1," 


6 ", 1,3 

i» O "7 il 






.1.880 

DFlTfl 2, 

1,"13" 

1 . 

O . 

11 T.; « 1 t ■;*» 

1. 

"11",1,3, " 


30",2,1 

! 1 O !» 






1890 

DfìTFl 1, 

•"* «i oo il 

2. 

1. 

" 10" 




7 - 







FLIPPER GIAPPONESE 


In questo Flipper Giapponese, trenta palline cadono dall’al¬ 
to attraverso una serie di chiodini, finendo in modo casuale 
su dei punteggi diversi, punteggi che vengono automatica- 
mente sommati al totale. 



5 



















1240 

CHFlR , 

5.. 19.. " 9 0 0 5 2 6 5 5 & 2 5 0 


0 9 ".. 

1 

1256 

CHFlR .. 

5,21,"SPREMERE RETURN 

1260 

IHP UT 

Et- 

1270 

CHRP. , 

5,21," 

1280 

CHRP , 

1! 

13,23,"ma PUNTEGGIO 

1290 

COLOR 


1 300 

S = 0 


1318 

POR fi” 

1 TU 30 

1320 

L=3 : C= 

14 

1330 

N*=STR 

t < fi > • CHFlR , 4,3, 2$ : PRI NT " 

1340 

CHFlR , 

19,2,"u" 

1350 

POR T= 

1 TO 200 NENT T 

1360 

CHFlR .* 

19,2," "= CHRP ,19,3,"O" 

1370 

POR T= 

1 TO 30 : NEKT T 

138U 

CHFlR , 

19,3, " " 

1390 

POR K> 

1 TO 13 

1 400 

H”RNDC 

1 > 

1410 

IP HC. 

5 THEN H=~1 

1420 

IP H>= 

.5 THEN H=1 

1430 

CHRP .• 

C+5,L," " 

1440 

L=L+1 


1450 

CHFlR , 

C+5+H,L,"o" 

1460 

SOUND 

1,99, 4 

1470 

C-C+H 


1480 

HE NT K 


1490 

IP C=1 

3 OR C=15 THEN 3=3+5 

1 500 

JF C=1 

1 OR (3=17 THEN 3=8+6 

1510 

IP C=S 

OR C»19 THEN S”S+12 

1520 

IP C r -7 

OR 0=21 THEN S=S+25 

1530 

IP C”5 

OR C=23 THEN 8=8+50 

1540 

IP C=3 

OR C=25 THEN 8=3+250 

1550 

IP C=1 

OR C=27 THEN S :r S+999 

1560 

G$=STR 

< s > : C H fi R , 30, 23, G t 

1570 

CHFlR .. 

C+5, !.., " " 

1580 

NERI F 


1590 

GOTO 1 

250 









ROMBOSPIRALE 


Altra animazione è Rombospirale che disegna e cancella 
alternativamente e in continuazione, una spirale a forma di 
rombo formata da caratteri e simboli scelti casualmente. 


1 0U0 REM RUMBUSP I RALE 

1020 REM DI CREIAMO MRRRHO 

1046 REM <C> GRUPPO EDITORIRLE JACKSON 
1060 GRAPHIC O,1 

1070 COLOR 5.. 2-COLOR 0,1 = COLOR 4.. 15 
1080 SOUND 1.. 8 • O : SOUND 2.. 0.* 0 
1090 SOUND 3.. 0,. 0 : VOL. 0 
1100 PRIMI CHR$<142> 

1110 POR R=1 IO 8 
1120 SFRITTI R, O • NE NT fi 

1140 C=1 

1150 GOSUB 1480 

1160 POR P=1 IO 11 

117 0 C H fiR P+9 12—P.. C HR $ % > 

1180 NERI P 

1190 POR N=1 IO 11 STEP 2 
1200 GOSUB 1400 
1210 POR p=l IO 12--H 
1220 Cf-lfiR .■ 19+P.■ — 1+P+N.■ CHR$0 ,; ! 

1230 NEXT P 











1240 GOSUB 1400 

1250 FOR F'=l TO 12-N 

1260 CHfìR .■ 32-P-H , 10+P.i CHRTOO 

1270 HEXT P 

1280 G0SUB 1400 

1290 FOR P=1 TO 11-H 

1300 CHfìR , 21 - P, 23—P—N, CHR$ < X > 

1310 HEXT P 

1320 GOSUB 1400 

1330 FOR P=1 TO U-H 

1340 CHfìR., , 9+p+N, 13--P, CHRS- < X } 

1350 HEXT P 
1360 HEXT H 
1370 C=C* -1 > 

1380 X=32 
1390 GOTO 1150 

1400 IF C= 1 THEH X=33+1HT <RHD < 1 > *96> COLOR 
5,IHT <RHD C1> *14 >+2 
1410 RETURH 





























I programmi di questo libro sul computer Commodore 128 
sono molto vari, vanno da programmi di grafica, ad effetti sonori, ad 
interessanti utility, a divertenti giochi. Tra gli altri vi sono programmi 
per creare un sintetizzatore di strumenti di ben 72 note, per pro¬ 
grammare il generatore di suoni a tre voci, per disegnare, per rea¬ 
lizzare dei grafici, per giocare alla roulette o al tiro alla fune, ed altri 
ancora. 

Tutti i programmi utilizzano le interessanti caratteristiche del com¬ 
puter Commodore 128 quali la grafica ad alta risoluzione, il genera¬ 
tore di suoni, i nuovi comandi del BASIC 7.0, eccetera. 

Dello stesso autore: 

- 30 programmi per MSX 

- Programmi per Sinclair QL 

- Macintosh 120 idee per il nuovo computer Apple 

- Espon HX20 il BASIC e 46 programmi 

- 77 programmi per Spectrum 

- 66 programmi per ZX81 e ZX80 + Hardware 

- Gli amplificatori di Norton LM3900 & LM359 


L. 29.000 


Cod. CC323 ISBN 88-7056-428-2 






